%I #16 Jul 11 2021 15:30:22
%S 531,2120,4767,8472,13235,19056,25935,33872,42867,52920,64031,76200,
%T 89427,103712,119055,135456,152915,171432,191007,211640,233331,256080,
%U 279887,292728,304752,319272,330675,357656,385695,414792,444947,476160
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 23.
%H Charles R Greathouse IV, <a href="/A031701/b031701.txt">Table of n, a(n) for n = 1..10000</a> (first 60 terms from Vincenzo Librandi)
%t Select[Range[500000],!IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 23&] (* _Vincenzo Librandi_, Feb 10 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|