login
A031817
Period of continued fraction for sqrt(n) contains exactly 49 ones.
0
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
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
KEYWORD
nonn
STATUS
approved