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

963, 3848, 8655, 15384, 24035, 34608, 47103, 61520, 77859, 96120, 116303, 138408, 162435, 188384, 216255, 246048, 277763, 311400, 346959, 384440, 423843, 465168, 508415, 553584, 600675, 649688, 700623, 753480, 808259, 864960, 923583, 954592

Offset

1,1

Links

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

Mathematica

cfmt31Q[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Min[ContinuedFraction[s][[2]]]==31]; Select[Range[1000000], cfmt31Q] (* Harvey P. Dale, Jul 12 2014 *)
Select[Range[10^7], !IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]] [[2]]] == 31 & ] (* Vincenzo Librandi, Jun 21 2016 *)

Crossrefs

Sequence in context: A031740 A031529 A347884 * A158413 A252413 A267973

Adjacent sequences: A031706 A031707 A031708 * A031710 A031711 A031712

Keyword

nonn

Author

David W. Wilson

Status

approved