login
A031811
Period of continued fraction for sqrt(n) contains exactly 43 ones.
0
15871, 30847, 31171, 41839, 42631, 54859, 62923, 65591, 66187, 68056, 68944, 69299, 70855, 77875, 80999, 83931, 92491, 95875, 96695, 97507, 100264, 106856, 109336, 109855, 110707, 115216, 115519, 122200, 124415, 124931, 132995, 135143, 139551
OFFSET
1,1
MATHEMATICA
cf43Q[n_]:=Module[{sn=Sqrt[n]}, !IntegerQ[sn]&&Count[ ContinuedFraction[ sn][[2]], 1]==43]; Select[Range[140000], cf43Q] (* Harvey P. Dale, Apr 25 2012 *)
CROSSREFS
Sequence in context: A184612 A277350 A101320 * A234318 A174596 A237071
KEYWORD
nonn
STATUS
approved