A031814 - OEIS

A031814

Numbers k such that the period of the continued fraction for sqrt(k) contains exactly 46 ones.

1726, 2011, 2566, 2629, 3046, 4006, 4327, 4609, 4873, 4918, 4924, 5179, 5398, 5686, 5769, 6007, 6271, 6316, 6337, 6676, 6691, 6814, 6973, 7027, 7429, 8161, 8251, 8377, 8409, 8542, 8599, 8869, 8977, 9011, 9136, 9304, 9441, 9484, 9993, 10186, 10462

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)

MATHEMATICA

cf46Q[n_]:=Module[{sr=Sqrt[n]}, If[IntegerQ[sr], 1, Count[ ContinuedFraction[ sr][[2]], 1]]==46]; Select[Range[11000], cf46Q] (* Harvey P. Dale, Mar 07 2014 *)

CROSSREFS

Sequence in context: A145648 A035867 A271045 * A020427 A232299 A280841

Adjacent sequences: A031811 A031812 A031813 * A031815 A031816 A031817

KEYWORD

nonn

AUTHOR

David W. Wilson

STATUS

approved