A277282 Max coefficient in n-th Lucas polynomial.

2, 1, 2, 3, 4, 5, 9, 14, 20, 30, 50, 77, 112, 182, 294, 450, 672, 1122, 1782, 2717, 4290, 7007, 11011, 16744, 27456, 44200, 68952, 107406, 176358, 281010, 436050, 700910, 1136960, 1797818, 2778446, 4576264, 7354710, 11560835, 18349630, 29910465, 47720400

Offset: 0

Author

Vladimir Reshetnikov, Oct 08 2016

Keywords

• nonn

Examples

			For n = 6, L_6(x) = x^6 + 6*x^4 + 9*x^2 + 2, so a(6) = 9.
		

Links

• Vaclav Kotesovec, Table of n, a(n) for n = 0..4000
• Vaclav Kotesovec, Plot of a(n) / (goldenratio^n / sqrt(n)) for n = 1..10000
• Eric Weisstein's World of Mathematics, Lucas Polynomial.

Crossrefs

Cf. A114525, A073028.

Programs

Mathematica

Table[Max@CoefficientList[LucasL[n, x], x], {n, 0, 40}]