A031431 Least term in period of continued fraction for sqrt(n) is 7.

51, 200, 447, 792, 1235, 1776, 2415, 2824, 3152, 3736, 3987, 4920, 5951, 6584, 7080, 8307, 8490, 9632, 9829, 11055, 11266, 11912, 12576, 14195, 15411, 15912, 17727, 18808, 19640, 21651, 22243, 23760, 25967, 27272, 27936, 28272, 30675

Offset

1,1

Links

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

Mathematica

Select[Range[35000], !IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 7&] (* Vincenzo Librandi, Feb 07 2012 *)

Crossrefs

Sequence in context: A069762 A245829 A369922 * A157365 A157916 A007264

Adjacent sequences: A031428 A031429 A031430 * A031432 A031433 A031434

Keyword

nonn

Author

David W. Wilson

Status

approved