login
Least term in period of continued fraction for sqrt(n) is 1.
1

%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_