A031817 Period of continued fraction for sqrt(n) contains exactly 49 ones.

18511, 29467, 38411, 42547, 48427, 54175, 57671, 61359, 65339, 67851, 68951, 73543, 84943, 86104, 93375, 104855, 107231, 109671, 111303, 112184, 114367, 119767, 122627, 125019, 126671, 127000, 130168, 131407, 134392, 139175, 139435, 140107

Offset

1,1

Links

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

Mathematica

p49Q[n_]:=Module[{sq=Sqrt[n]}, !IntegerQ[sq]&&Count[ ContinuedFraction[ sq][[2]], 1]==49]; Select[Range[150000], p49Q] (* Harvey P. Dale, Aug 29 2012 *)

Crossrefs

Sequence in context: A247205 A173274 A237012 * A236816 A229076 A157740

Adjacent sequences: A031814 A031815 A031816 * A031818 A031819 A031820

Keyword

nonn

Author

David W. Wilson

Status

approved