OFFSET
0,3
FORMULA
a(n) ~ exp(Pi*(1+sqrt(2))*sqrt(n/3)) / (16*3^(3/4)*n^(7/4)).
MAPLE
b:= proc(n) option remember; `if`(n=0, 1, add(b(n-j)*add(
`if`(d::odd, d, 0), d=numtheory[divisors](j)), j=1..n)/n)
end:
a:= n-> b(n)*combinat[numbpart](n):
seq(a(n), n=0..40); # Alois P. Heinz, May 23 2023
MATHEMATICA
Table[PartitionsP[n]*PartitionsQ[n], {n, 0, 50}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, May 23 2018
STATUS
approved