A272127 a(n) = 1680*n^4 - 168*n^2 + 128*n + 1.

1, 1641, 26465, 134953, 427905, 1046441, 2172001, 4026345, 6871553, 11010025, 16784481, 24577961, 34813825, 47955753, 64507745, 85014121, 110059521, 140268905, 176307553, 218881065, 268735361, 326656681, 393471585, 470046953, 557289985, 656148201, 767609441

Offset

0,2

Comments

This is the polynomial Qbar(4,n) in Brent. See A160485 for the triangle of coefficients (with signs) of the Qbar polynomials. - Peter Bala, Jan 21 2019

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Richard P. Brent, Generalising Tuenter's binomial sums, arXiv:1407.3533 [math.CO], 2014. (page 16).

Richard P. Brent, Generalising Tuenter's binomial sums, Journal of Integer Sequences, 18 (2015), Article 15.3.2.

Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,1).

Formula

O.g.f.: (1+1636*x+18270*x^2+19028*x^3+1385*x^4)/(1-x)^5.

E.g.f.: (1+1640*x+11592*x^2+10080*x^3+1680*x^4)*exp(x).

a(n) = (2*n+1)*(840*n^3-420*n^2+126*n+1).

a(n) = 5*a(n-1)-10*a(n-2)+10*a(n-3)-5*a(n-4)+a(n-5), for n>4

See page 7 in Brent's paper:

a(n) = (2*n+1)^2*A272126(n) - 2*n*(2*n+1)*A272126(n-1).

A272128(n) = (2*n+1)^2*a(n) - 2*n*(2*n+1)*a(n-1).

From Peter Bala, Jan 22 2019: (Start)

a(n) = 1/4^n * Sum_{k = 0..n} (2*k + 1)^8 * binomial(2*n + 1, n - k).

a(n-1) = 2/4^n * binomial(2*n,n) * ( 1 + 3^8*(n - 1)/(n + 1) + 5^8*(n - 1)*(n - 2)/((n + 1)*(n + 2)) + 7^8*(n - 1)*(n - 2)*(n - 3)/((n + 1)*(n + 2)*(n + 3)) + ... ). (End)

Mathematica

Table[1680 n^4 - 168 n^2 + 128 n + 1, {n, 0, 30}]
LinearRecurrence[{5, -10, 10, -5, 1}, {1, 1641, 26465, 134953, 427905}, 30] (* Harvey P. Dale, Nov 27 2017 *)

Prog

(Magma) [1680*n^4-168*n^2+128*n+1: n in [0..50]];
(PARI) a(n) = 1680*n^4 - 168*n^2 + 128*n + 1; \\ Altug Alkan, Apr 30 2016

Crossrefs

Cf. A014641, A272126, A160485, A245244, A272129.

Sequence in context: A146300 A035866 A015340 * A252197 A135016 A238066

Adjacent sequences: A272124 A272125 A272126 * A272128 A272129 A272130

Keyword

nonn,easy

Author

Vincenzo Librandi, Apr 25 2016

Status

approved