A160737 4*P_5(n), 4 times the Legendre Polynomial of order 5 at n.

0, 4, 743, 6732, 30046, 94100, 237429, 517468, 1014332, 1834596, 3115075, 5026604, 7777818, 11618932, 16845521, 23802300, 32886904, 44553668, 59317407, 77757196, 100520150, 128325204, 161966893, 202319132, 250338996, 307070500, 373648379

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (6,-15,20,-15,6,-1).

Formula

a(n) = n*(63*n^4-70*n^2+15)/2. - Vaclav Kotesovec, Jul 31 2013

G.f.: x*(4+719*x+2334*x^2+719*x^3+4*x^4) / (x-1)^6 . - R. J. Mathar, May 06 2016

Maple

A160737 := proc(n)
        4*orthopoly[P](5, n) ;
end proc: # R. J. Mathar, Oct 24 2011

Mathematica

Table[4 LegendreP[5, n], {n, 0, 50}]

Prog

(PARI) a(n)=4*pollegendre(5, n) \\ Charles R Greathouse IV, Mar 18 2017
(Magma) [n*(63*n^4-70*n^2+15)/2: n in [0..30]]; // G. C. Greubel, May 02 2018

Crossrefs

Sequence in context: A090588 A053986 A222961 * A128846 A332174 A195625

Adjacent sequences: A160734 A160735 A160736 * A160738 A160739 A160740

Keyword

nonn,easy

Author

N. J. A. Sloane, Nov 17 2009

Status

approved