|
%I #18 Jul 12 2021 02:04:02
%S 122,486,1092,1940,3030,4362,5936,7752,9810,12110,14652,17436,20462,
%T 23730,27240,30992,34986,39222,43700,48420,53382,58586,64032,69720,
%U 70248,75650,81822,88236,94892,101790,108930,116312,123936,131802,139910
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 22.
%H Charles R Greathouse IV, <a href="/A031700/b031700.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[200000],!IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]][[2]]]==22&] (* _Vincenzo Librandi_, Feb 06 2012 *)
%Y Cf. A031424.
%K nonn
%O 1,1
%A _David W. Wilson_
|
