OFFSET
0,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 0..1000
MATHEMATICA
nn = 50; zeros = nn; t = Table[0, {nn}]; k = 2; While[zeros > 0, If[! IntegerQ[Sqrt[k]], cnt = Count[ContinuedFraction[Sqrt[k]][[2]], 5]; If[cnt <= nn && t[[cnt]] == 0, t[[cnt]] = k; zeros--]]; k++]; Join[{2}, t]
PROG
(Python)
from sympy import continued_fraction_periodic
def A206585(n):
i = 2
while True:
s = continued_fraction_periodic(0, 1, i)[-1]
if isinstance(s, list) and s.count(5) == n:
return i
i += 1 # Chai Wah Wu, Jun 10 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 19 2012
EXTENSIONS
Definition clarified by Chai Wah Wu, Jun 10 2017
STATUS
approved