%I #13 Aug 07 2017 09:55:22
%S 10,38,84,148,230,330,448,584,632,738,910,1100,1308,1534,1613,1778,
%T 2040,2320,2618,2822,2934,3268,3620,3990,4378,4511,4784,5208,5353,
%U 5650,5954,6110,6267,6588,7084,7588,7598,8130,8680,9248,9834,10438
%N Least term in period of continued fraction for sqrt(n) is 6.
%H Charles R Greathouse IV, <a href="/A031430/b031430.txt">Table of n, a(n) for n = 1..10000</a> (first 300 terms from Vincenzo Librandi)
%t Select[Range[15000], !IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 6&] (* _Vincenzo Librandi_, Feb 07 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|