A030180 a(n) = (n^7 - n)/42.

0, 0, 3, 52, 390, 1860, 6665, 19608, 49932, 113880, 238095, 463980, 853138, 1494012, 2509845, 4068080, 6391320, 9769968, 14576667, 21282660, 30476190, 42883060, 59389473, 81067272, 109201700, 145321800, 191233575, 249056028, 321260202, 410711340, 520714285

Offset

0,3

Links

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

Index entries for linear recurrences with constant coefficients, signature (8,-28,56,-70,56,-28,8,-1).

Formula

a(n) = A133499(n)/42. - Michel Marcus, Aug 30 2013

From Stefano Spezia, Dec 29 2019: (Start)

O.g.f.: x^2*(3 + 28*x + 58*x^2 + 28*x^3 + 3*x^4)/(1 - x)^8.

E.g.f.: (1/42)*exp(x)*x^2*(63 + 301*x + 350*x^2 + 140*x^3 + 21*x^4 + x^5).

(End)

Maple

seq( (n^7-n)/42, n=0..35); # G. C. Greubel, Dec 28 2019

Mathematica

Table[(n^7-n)/42, {n, 0, 35}] (* G. C. Greubel, Dec 28 2019 *)
LinearRecurrence[{8, -28, 56, -70, 56, -28, 8, -1}, {0, 0, 3, 52, 390, 1860, 6665, 19608}, 40] (* Harvey P. Dale, May 14 2022 *)

Prog

(PARI) a(n) = (n^7-n)/42; \\ Michel Marcus, Aug 30 2013
(Magma) [(n^7-n)/42: n in [0..35]]; // G. C. Greubel, Dec 28 2019
(Sage) [(n^7-n)/42 for n in (0..35)] # G. C. Greubel, Dec 28 2019
(GAP) List([0..35], n-> (n^7-n)/42); # G. C. Greubel, Dec 28 2019

Crossrefs

Cf. A133499 (n^7-n).

Sequence in context: A037106 A246748 A202654 * A005547 A301948 A374616

Adjacent sequences: A030177 A030178 A030179 * A030181 A030182 A030183

Keyword

nonn

Author

Charlton Harrison (charlton(AT)bach.dynet.com)

Status

approved