%I #11 Aug 07 2017 09:32:14
%S 3,7,8,13,14,15,19,21,22,23,24,29,31,32,33,34,35,43,44,45,46,47,48,52,
%T 53,54,57,58,59,60,61,62,63,67,69,70,71,73,74,75,76,77,78,79,80,85,86,
%U 88,91,92,93,94,95,96,97,98,99,103,106,107,108,109,111,112
%N Least term in period of continued fraction for sqrt(n) is 1.
%H Charles R Greathouse IV, <a href="/A031425/b031425.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[200],!IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]][[2]]]==1&] (* _Vincenzo Librandi_, Feb 06 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_