|
|
A008354
|
|
a(n) = (5*n^2 + 1)*n^2 / 6.
|
|
4
|
|
|
0, 1, 14, 69, 216, 525, 1086, 2009, 3424, 5481, 8350, 12221, 17304, 23829, 32046, 42225, 54656, 69649, 87534, 108661, 133400, 162141, 195294, 233289, 276576, 325625, 380926, 442989, 512344, 589541, 675150, 769761, 873984, 988449, 1113806, 1250725, 1399896
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
O.g.f.: x*(1 + x)*(x^2 + 8*x + 1)/(1 - x)^5.
a(n) = 5*a(n-1) - 10*a(n-2) + 10*a(n-3) - 5*a(n-4) + a(n-5) for n>4, a(0)=0, a(1)=1, a(2)=14, a(3)=69, a(4)=216. - Harvey P. Dale, Feb 12 2015
|
|
MAPLE
|
a:= n-> 5*n^4/6 + n^2/6: seq(a(n), n=0..45);
|
|
MATHEMATICA
|
Table[n^2 (5 n^2 + 1)/6, {n, 0, 30}] (* or *) LinearRecurrence[{5, -10, 10, -5, 1}, {0, 1, 14, 69, 216}, 30] (* Harvey P. Dale, Feb 12 2015 *)
|
|
PROG
|
(GAP) List([0..30], n -> (5*n^2+1)*n^2/6); # Muniru A Asiru, Feb 12 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|