login
A152041
A008893/2.
2
0, 4, 33, 129, 355, 795, 1554, 2758, 4554, 7110, 10615, 15279, 21333, 29029, 38640, 50460, 64804, 82008, 102429, 126445, 154455, 186879, 224158, 266754, 315150, 369850, 431379, 500283, 577129, 662505, 757020, 861304, 976008, 1101804, 1239385, 1389465
OFFSET
0,2
FORMULA
a(n) = n*(n+1)*(7*n^2+7*n+2)/8.
G.f.: -x*(4*x^2+13*x+4)/(x-1)^5.
a(0)=0, a(1)=4, a(2)=33, a(3)=129, a(4)=355, a(n)=5*a(n-1)- 10*a(n-2)+ 10*a(n-3)-5*a(n-4)+a(n-5) [From Harvey P. Dale, Jul 20 2011]
MATHEMATICA
Table[n(n+1)(7n^2+7n+2)/8, {n, 0, 40}] (* or *) LinearRecurrence[ {5, -10, 10, -5, 1}, {0, 4, 33, 129, 355}, 40] (* Harvey P. Dale, Jul 20 2011 *)
PROG
(Maxima) A152041(n):=n*(n+1)*(7*n^2+7*n+2)/8$
makelist(A152041(n), n, 0, 30); /* Martin Ettl, Nov 03 2012 */
CROSSREFS
Sequence in context: A295939 A297515 A027169 * A041027 A362820 A364946
KEYWORD
nonn,easy
AUTHOR
M. F. Hasler, Sep 15 2009
EXTENSIONS
Extended and edited by Nathaniel Johnston, May 05 2011
STATUS
approved