OFFSET
0,3
COMMENTS
Also the number of constant multiset partitions of constant multiset partitions of integer partitions of n.
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
FORMULA
a(n) ~ exp(Pi*sqrt(2*n/3)) / (4*n*sqrt(3)). - Vaclav Kotesovec, Jan 28 2019
EXAMPLE
The a(6) = 25 constant multiset partitions of constant multiset partitions of integer partitions of 6:
((6))
((52))
((42))
((33))
((3)(3))
((3))((3))
((411))
((321))
((222))
((2)(2)(2))
((2))((2))((2))
((3111))
((2211))
((21)(21))
((21))((21))
((21111))
((111111))
((111)(111))
((11)(11)(11))
((111))((111))
((11))((11))((11))
((1)(1)(1)(1)(1)(1))
((1)(1)(1))((1)(1)(1))
((1)(1))((1)(1))((1)(1))
((1))((1))((1))((1))((1))((1))
MATHEMATICA
Table[If[n==0, 1, Sum[PartitionsP[d]*DivisorSigma[0, n/d], {d, Divisors[n]}]], {n, 0, 30}]
PROG
(PARI) a(n) = if (n==0, 1, sumdiv(n, d, numbpart(d)*numdiv(n/d))); \\ Michel Marcus, Jan 28 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 27 2019
STATUS
approved