login
A031800
Period of continued fraction for sqrt(n) contains exactly 32 ones.
0
1561, 1579, 1621, 1741, 1981, 2371, 2661, 2683, 2719, 2734, 2854, 3292, 3541, 3577, 3613, 3637, 3669, 3754, 3826, 4195, 4219, 4291, 4363, 4391, 4468, 4513, 4957, 5129, 5146, 5161, 5169, 5416, 5479, 5533, 5710, 5861, 5867, 6269, 6313, 6389, 6509, 6542
OFFSET
1,1
MATHEMATICA
cf32Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==32]; Select[Range[7000], cf32Q] (* Harvey P. Dale, Mar 04 2015 *)
CROSSREFS
Sequence in context: A158773 A259303 A035865 * A280354 A072394 A243528
KEYWORD
nonn
STATUS
approved