login
A024001
a(n) = 1 - n^3.
5
1, 0, -7, -26, -63, -124, -215, -342, -511, -728, -999, -1330, -1727, -2196, -2743, -3374, -4095, -4912, -5831, -6858, -7999, -9260, -10647, -12166, -13823, -15624, -17575, -19682, -21951, -24388, -26999, -29790, -32767, -35936, -39303, -42874, -46655, -50652, -54871, -59318, -63999
OFFSET
0,3
FORMULA
From G. C. Greubel, May 11 2017: (Start)
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4).
G.f.: (1 - 4*x - x^2 - 2*x^3)/(1 - x)^4.
E.g.f.: (1 - x - 3*x^2 - x^3)*exp(x). (End)
MATHEMATICA
Table[1 - n^3, {n, 0, 50}] (* Bruno Berselli, Jun 12 2015 *)
CoefficientList[Series[(1 - 4*x - x^2 - 2*x^3)/(1 - x)^4, {x, 0, 50}], x] (* G. C. Greubel, May 11 2017 *)
PROG
(Magma) [1-n^3: n in [0..50]]; // Vincenzo Librandi, Apr 29 2011
(Maxima) A024001(n):=1-n^3$ makelist(A024001(n), n, 0, 30); /* Martin Ettl, Nov 05 2012 */
(PARI) x='x+O('x^50); Vec((1 - 4*x - x^2 - 2*x^3)/(1 - x)^4) \\ G. C. Greubel, May 11 2017
CROSSREFS
Sequence in context: A046433 A128972 A135300 * A068601 A268861 A221793
KEYWORD
sign,easy
EXTENSIONS
More terms from Henry Bottomley, Jan 08 2001
STATUS
approved