OFFSET
0,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..3129
FORMULA
a(n) = A327549(2n,n).
a(n) ~ 2^n * exp(Pi*sqrt(2*n/3)) / (4*sqrt(3)*n). - Vaclav Kotesovec, Sep 19 2019
G.f.: Product_{k>=1} 1 / (1 - 2^k*x^k). - Ilya Gutkovskiy, Apr 24 2021
MAPLE
b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1 or
k<1, 0, b(n, i-1, k)+ 2^(i-1)*b(n-i, min(n-i, i), k-1)))
end:
a:= n-> b(2*n$2, n)-`if`(n=0, 0, b(2*n$2, n-1)):
seq(a(n), n=0..40);
MATHEMATICA
Table[2^n * PartitionsP[n], {n, 0, 30}] (* Vaclav Kotesovec, Oct 02 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Sep 16 2019
STATUS
approved