OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..500
MAPLE
with(combinat):
a:= n-> add(numbpart(k)*bell(n-k), k=0..n):
seq(a(n), n=0..30); # Alois P. Heinz, Mar 15 2015
MATHEMATICA
a[n_]:= Sum[PartitionsP[k]*BellB[n-k], {k, 0, n}];
Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Dec 06 2016 *)
PROG
(Magma)
A014326:= func< n | (&+[NumberOfPartitions(j)*Bell(n-j): j in [0..n]]) >;
[A014326(n): n in [0..40]]; // G. C. Greubel, Jan 08 2023
(SageMath)
def A014326(n): return sum(number_of_partitions(j)*bell_number(n-j) for j in range(n+1))
[A014326(n) for n in range(41)] # G. C. Greubel, Jan 08 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved