A031841 Period of continued fraction for sqrt(n) contains exactly 73 ones.

45799, 56323, 61831, 78247, 99811, 106387, 133003, 136315, 139807, 147715, 150331, 151139, 162559, 162835, 174399, 178363, 188031, 188871, 192376, 198535, 206259, 215431, 216863, 219007, 221779, 225496, 225592, 227859, 230039, 233815, 239896

Offset

1,1

Links

Table of n, a(n) for n=1..31.

Mathematica

cf73Q[n_]:=Module[{sqr=Sqrt[n]}, !IntegerQ[sqr] && Count[ ContinuedFraction[ sqr] [[2]], 1]==73]; Select[Range[250000], cf73Q] (* Harvey P. Dale, Nov 23 2012 *)

Crossrefs

Sequence in context: A202915 A257358 A232255 * A031635 A159725 A210306

Adjacent sequences: A031838 A031839 A031840 * A031842 A031843 A031844

Keyword

nonn

Author

David W. Wilson

Status

approved