login
A031822
Period of continued fraction for sqrt(n) contains exactly 54 ones.
0
3931, 3964, 4084, 4447, 5164, 5443, 5641, 5869, 5884, 6049, 6124, 6301, 6913, 6991, 7204, 7507, 7687, 7699, 7804, 8068, 8389, 8431, 9097, 9157, 9201, 9337, 9421, 9461, 9508, 9524, 9643, 9853, 10393, 10409, 10519, 10993, 11069, 11309, 11851, 11887
OFFSET
1,1
MATHEMATICA
cf54Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 0, Count[ ContinuedFraction[ s][[2]], 1]]==54]; Select[Range[12000], cf54Q] (* Harvey P. Dale, Oct 02 2016 *)
CROSSREFS
Sequence in context: A179139 A014887 A251823 * A288894 A289563 A198641
KEYWORD
nonn
STATUS
approved