A136006 - OEIS

A136006

a(n) = n^6 - n^3.

0, 0, 56, 702, 4032, 15500, 46440, 117306, 261632, 530712, 999000, 1770230, 2984256, 4824612, 7526792, 11387250, 16773120, 24132656, 34006392, 47039022, 63992000, 85756860, 113369256, 148023722, 191089152, 244125000, 308898200, 387400806, 481868352, 594798932

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

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

FORMULA

G.f.: (2*x^6 + 58*x^5 + 294*x^4 + 310*x^3 + 56*x^2)/(-x^7 + 7*x^6 - 21*x^5 + 35*x^4 - 35*x^3 + 21*x^2 - 7*x + 1). - Alexander R. Povolotsky, Apr 01 2008

a(n) = A001014(n) - A000578(n). - Michel Marcus, Feb 15 2014

a(n) = 2 * A085744(n). - Alois P. Heinz, Mar 15 2021

MAPLE

A136006:=n->n^6 - n^3; seq(A136006(n), n=0..60); # Wesley Ivan Hurt, Feb 14 2014

MATHEMATICA

a[n_]:=n^6-n^3; a[Range[0, 60]] (* Vladimir Joseph Stephan Orlovsky, Feb 10 2011 *)

CoefficientList[Series[(2 x^6 + 58 x^5 + 294 x^4 + 310 x^3 + 56 x^2)/(-x^7 + 7 x^6 - 21 x^5 + 35 x^4 - 35 x^3 + 21 x^2 - 7 x + 1), {x, 0, 40}], x] (* Vincenzo Librandi, Feb 16 2014 *)

PROG

(Magma) [n^6 - n^3: n in [0..40]]; // Vincenzo Librandi, Feb 16 2014

(PARI) a(n) = n^6 - n^3; \\ Joerg Arndt, Feb 16 2014

CROSSREFS

Cf. A085744.

Sequence in context: A199914 A190535 A190604 * A138410 A240269 A278604

Adjacent sequences: A136003 A136004 A136005 * A136007 A136008 A136009

KEYWORD

easy,nonn

AUTHOR

Rolf Pleisch, Mar 16 2008

EXTENSIONS

Extended by Ray Chandler, Dec 13 2008

STATUS

approved