login
A192568
a(n) = sum(Stirling2(n,k)*Stirling2(n+1,k+1)*Stirling2(n+2,k+2),k=0..n).
0
1, 1, 19, 356, 13626, 712482, 51437310, 5021800835, 618616762763, 95445366568311, 18045402520903033, 4089264784742659744, 1098689143687870325930, 345713999063910185516303, 125935810020098258689919235, 52660666992259419412862687142
OFFSET
0,3
MATHEMATICA
Table[Sum[StirlingS2[n, k]StirlingS2[n+1, k+1]StirlingS2[n+2, k+2], {k, 0, n}], {n, 0, 100}]
PROG
(Maxima) makelist(sum(stirling2(n, k)*stirling2(n+1, k+1)*stirling2(n+2, k+2), k, 0, n), n, 0, 24);
CROSSREFS
Sequence in context: A170738 A218721 A282030 * A171324 A078368 A332798
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Jul 04 2011
STATUS
approved