|
%I #16 Jul 15 2021 01:44:39
%S 82,326,732,1300,2030,2922,3976,5192,6570,8110,9812,11676,13702,15890,
%T 18240,20752,23426,26262,29260,32420,32780,35742,39226,42872,46680,
%U 50650,54782,59076,63532,68150,72930,77872,82976,88242,93670,99260,105012
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 18.
%H Charles R Greathouse IV, <a href="/A031696/b031696.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[110000],!IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]][[2]]]==18&] (* _Vincenzo Librandi_, Jan 27 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
