A031722 - OEIS

%I #15 Feb 05 2023 17:35:35

%S 485,1938,4359,7748,12105,17430,23723,30984,39213,48410,58575,69708,

%T 81809,94878,108915,123920,139893,156834,174743,193620,213465,234278,

%U 256059,278808,302525,327210,352863,379484,407073,435630,465155,495648

%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 44.

%C a(n) = 484n^2 + n for n < 47, but a(47) = 1026214. - _Charles R Greathouse IV_, Aug 04 2017

%H Charles R Greathouse IV, <a href="/A031722/b031722.txt">Table of n, a(n) for n = 1..10000</a>

%t cf44Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]]==44]; Select[Range[500000],cf44Q] (* _Harvey P. Dale_, Feb 05 2023 *)

%K nonn

%O 1,1

%A _David W. Wilson_