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