OFFSET
1,1
COMMENTS
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
EXAMPLE
[1,3,1,3,1,3,...] = (1/6)(3 + sqrt(21)), so that a(3) = 21.
MATHEMATICA
v = Table[FromContinuedFraction[{1, {n, 1}}], {n, 1, 60}];
Flatten[NumberFieldDiscriminant[v]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 20 2015
STATUS
approved