login
A259912
Discriminant of the field of the number having constant continued fraction [n,n,n,...].
3
5, 8, 13, 5, 29, 40, 53, 17, 85, 104, 5, 37, 173, 8, 229, 65, 293, 328, 365, 101, 445, 488, 533, 145, 629, 680, 733, 197, 5, 904, 965, 257, 1093, 1160, 1229, 13, 1373, 1448, 61, 401, 1685, 1768, 1853, 485, 2029, 2120, 2213, 577, 2405, 2504, 2605, 677, 2813
OFFSET
1,1
COMMENTS
Central numbers of the triangle at A259911.
It appears that a(n) = 5 for n in A002878 = (1,4,11,29,...), a bisection of the Lucas sequence.
LINKS
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
Sequence in context: A180930 A185729 A164128 * A078412 A144650 A046038
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 20 2015
STATUS
approved