%I #26 Jul 15 2021 01:47:30
%S 443,1768,3975,7064,11035,15888,21623,28240,35739,44120,53383,63528,
%T 74555,86464,99255,112928,127483,142920,159239,176440,194523,204347,
%U 213488,224719,233335,254064,275675,298168,321543,345800,370939,396960
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 21.
%H Charles R Greathouse IV, <a href="/A031699/b031699.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[400000],!IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]][[2]]]==21&] (* _Vincenzo Librandi_, Jan 27 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|