A259912 Discriminant of the field of the number having constant continued fraction [n,n,n,...].

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

Author

Clark Kimberling, Jul 20 2015

Keywords

• nonn
• easy

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.

Examples

			[3,3,3,...] = (1/2)(3 + sqrt(13)), so that a(3) = 13.
		

Links

• Clark Kimberling, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A259911, A259913.

Programs

Mathematica

t = Table[FromContinuedFraction[{n, {n}}], {n, 1, 100}];
Flatten[NumberFieldDiscriminant[t]]