A020441 Period of continued fraction for sqrt(n) contains exactly five 1's.

91, 304, 319, 432, 539, 555, 595, 671, 696, 703, 760, 891, 935, 1175, 1512, 1643, 1695, 1971, 2075, 2088, 2223, 2295, 2299, 2507, 2552, 2555, 2679, 2727, 3219, 3240, 3344, 3416, 3471, 3611, 4023, 4075, 4331, 4347, 4371, 5291, 5320, 5355, 5616, 5712, 6016

Offset

1,1

Links

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

Mathematica

Select[ Range@ 6100, !IntegerQ[ Sqrt@ #] && Count[ ContinuedFraction[ Sqrt@ #][[2]], 1] == 5 &] (* Robert G. Wilson v, Jul 03 2011 *)

Crossrefs

Sequence in context: A000864 A224460 A350206 * A209255 A273799 A063137

Adjacent sequences: A020438 A020439 A020440 * A020442 A020443 A020444

Keyword

nonn

Author

David W. Wilson

Status

approved