A031701 Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 23.

531, 2120, 4767, 8472, 13235, 19056, 25935, 33872, 42867, 52920, 64031, 76200, 89427, 103712, 119055, 135456, 152915, 171432, 191007, 211640, 233331, 256080, 279887, 292728, 304752, 319272, 330675, 357656, 385695, 414792, 444947, 476160

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 60 terms from Vincenzo Librandi)

Mathematica

Select[Range[500000], !IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 23&] (* Vincenzo Librandi, Feb 10 2012 *)

Crossrefs

Sequence in context: A345387 A031521 A156772 * A158367 A225937 A225936

Adjacent sequences: A031698 A031699 A031700 * A031702 A031703 A031704

Keyword

nonn

Author

David W. Wilson

Status

approved