OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..571
Eric Weisstein's World of Mathematics, Stirling Transform.
FORMULA
a(n) = Sum_{k=0..n} Stirling2(n,k)*A000041(k).
MAPLE
a:= n-> add(combinat[numbpart](j)*Stirling2(n, j), j=0..n):
seq(a(n), n=0..30); # Alois P. Heinz, Jun 17 2018
MATHEMATICA
Table[Sum[StirlingS2[n, k]*PartitionsP[k], {k, 0, n}], {n, 0, 25}]
PROG
(PARI) a(n) = sum(k=0, n, stirling(n, k, 2)*numbpart(k)); \\ Michel Marcus, Jun 17 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Jun 17 2018
STATUS
approved