|
%I #14 Aug 07 2017 11:59:25
%S 51,200,447,792,1235,1776,2415,2824,3152,3736,3987,4920,5951,6584,
%T 7080,8307,8490,9632,9829,11055,11266,11912,12576,14195,15411,15912,
%U 17727,18808,19640,21651,22243,23760,25967,27272,27936,28272,30675
%N Least term in period of continued fraction for sqrt(n) is 7.
%H Charles R Greathouse IV, <a href="/A031431/b031431.txt">Table of n, a(n) for n = 1..10000</a> (first 200 from Vincenzo Librandi)
%t Select[Range[35000],!IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 7&] (* _Vincenzo Librandi_, Feb 07 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
