|
%I #13 Jul 15 2021 01:44:06
%S 291,1160,2607,4632,7235,10416,14175,18512,23427,28920,34991,41640,
%T 48867,56672,65055,74016,83555,88839,93672,99891,104367,115640,127491,
%U 139920,152927,166512,180675,195416,203454,210735,226632,243107,260160,277791
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 17.
%H Charles R Greathouse IV, <a href="/A031695/b031695.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[280000],!IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]] [[2]]]==17&] (* _Harvey P. Dale_, Dec 09 2011 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
