|
%I #14 Aug 07 2017 09:39:42
%S 11,40,87,128,152,232,235,266,300,335,336,373,455,498,544,592,747,848,
%T 860,914,920,1110,1111,1248,1320,1392,1393,1547,1700,1707,1708,1790,
%U 1792,1876,1953,2055,2240,2335,2336,2632,2635,2829,2844,2952
%N Least term in period of continued fraction for sqrt(n) is 3.
%H Charles R Greathouse IV, <a href="/A031427/b031427.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 from Vincenzo Librandi)
%t Select[Range[3000], !IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 3&] (* _Vincenzo Librandi_, Feb 06 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
