|
%I #24 Jul 15 2021 01:48:59
%S 170,678,1524,2708,4230,6090,8288,10824,13698,16910,20460,24348,28574,
%T 33138,38040,43280,48858,54774,61028,67620,74550,81818,89424,97368,
%U 105650,114270,123228,132524,133252,142158,152130,162440,173088,184074
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 26.
%C (13*m)^2 + m for m >=1 are terms in the sequence (see comment in A031742). The first term not of this form is a(29) = 133252. - _Chai Wah Wu_, Jun 19 2016
%H Charles R Greathouse IV, <a href="/A031704/b031704.txt">Table of n, a(n) for n = 1..10000</a> (first 60 terms from Vincenzo Librandi)
%t Select[Range[190000],!IntegerQ[Sqrt[#]] &&Min[ContinuedFraction[Sqrt[#]][[2]]] == 26&] (* _Vincenzo Librandi_, Feb 11 2012 *)
%Y Cf. A158000.
%K nonn
%O 1,1
%A _David W. Wilson_
|
