|
%I #16 Jul 14 2021 06:01:32
%S 37,146,327,580,905,1302,1771,2312,2925,3610,4367,5196,6097,7070,7238,
%T 8115,9232,10421,11682,13015,14420,15897,17446,19067,20760,22525,
%U 22826,24362,26271,28252,30305,31001,32430,34627,36896,39237,41650,44135,46692
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 12.
%H Charles R Greathouse IV, <a href="/A031690/b031690.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[50000],!IntegerQ[Sqrt[#]] &&Min[ContinuedFraction[Sqrt[#]][[2]]] == 12&] (* _Vincenzo Librandi_, Feb 09 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
