OFFSET
1,1
MATHEMATICA
cf44Q[n_]:=Module[{s=Sqrt[n], cf, len}, cf=If[IntegerQ[s], {1, 1}, ContinuedFraction[ s][[2]]]; len=Length[cf]; OddQ[len]&&cf[[(len+1)/2]] == 44]; Select[Range[426000], cf44Q] (* Harvey P. Dale, May 10 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
First term 1937 removed by Georg Fischer, Jun 16 2019
First term (485) added and definition clarified by Harvey P. Dale, May 10 2020
STATUS
approved