|
|
A177075
|
|
a(n) = n^5 - n^3 - 2*n^2 + 1.
|
|
4
|
|
|
1, -1, 17, 199, 929, 2951, 7489, 16367, 32129, 58159, 98801, 159479, 246817, 368759, 534689, 755551, 1043969, 1414367, 1883089, 2468519, 3191201, 4073959, 5142017, 6423119, 7947649, 9748751, 11862449, 14327767, 17186849, 20485079, 24271201
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (1 - 7 x + 38 x^2 + 62 x^3 + 25 x^4 + x^5)/(1 - x)^6. - Vincenzo Librandi, May 03 2014
a(n) = 6*a(n-1) - 15*a(n-2) + 20*a(n-3) - 15*a(n-4) + 6*a(n-5) - a(n-6) for n>5.
|
|
MATHEMATICA
|
CoefficientList[Series[(1 - 7 x + 38 x^2 + 62 x^3 + 25 x^4 + x^5)/(1 - x)^6, {x, 0, 40}], x] (* Vincenzo Librandi, May 03 2014 *)
Table[n^5-n^3-2n^2+1, {n, 0, 50}] (* or *) LinearRecurrence[{6, -15, 20, -15, 6, -1}, {1, -1, 17, 199, 929, 2951}, 50] (* Harvey P. Dale, Aug 25 2023 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|