OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
MATHEMATICA
cf79Q[n_]:=Module[{c=Sqrt[n]}, !IntegerQ[c]&&Length[ContinuedFraction[c][[2]]]==79]; Select[Range[50000], cf79Q] (* Harvey P. Dale, Dec 23 2012 *)
PROG
(Python)
from sympy import continued_fraction_periodic
A020418_list = [n for n, s in ((i, continued_fraction_periodic(0, 1, i)[-1]) for i in range(1, 10**5)) if isinstance(s, list) and len(s) == 79] # Chai Wah Wu, Jun 08 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved