OFFSET
1,1
COMMENTS
The equivalent sequence for partitions is A066186.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = n*A015128(n).
a(n) ~ exp(Pi*sqrt(n)) / 8. - Vaclav Kotesovec, May 19 2018
MAPLE
b:= proc(n, i) option remember; `if`(n=0, [1, 0],
`if`(i<1, [0$2], b(n, i-1)+add((l-> l+[0, l[1]*i*j])
(2*b(n-i*j, i-1)), j=1..n/i)))
end:
a:= n-> b(n$2)[2]:
seq(a(n), n=1..40); # Alois P. Heinz, Jan 21 2014
MATHEMATICA
Table[n*Sum[PartitionsP[n-k]*PartitionsQ[k], {k, 0, n}], {n, 1, 40}] (* Jean-François Alcover, Oct 20 2016, after Vaclav Kotesovec *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Jan 18 2014
STATUS
approved