OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
FORMULA
a(n) ~ 5^(1/4) * exp(sqrt(10*n)*Pi/3) / (9*2^(1/4)*n^(3/4)). - Vaclav Kotesovec, Oct 09 2017
MAPLE
b:= proc(n, i) option remember; `if`(n=0, [1, 0], `if`(i>1, b(n, i-1), 0)+
add((p-> p+[0, p[1]])(b(n-i*j, min(n-i*j, i-1))*j), j=`if`(i=1, n, 1..n/i)))
end:
a:= n-> (p-> 2*p[2]+p[1])(b(n$2)):
seq(a(n), n=0..38); # Alois P. Heinz, Jul 18 2025
MATHEMATICA
nmax = 50; CoefficientList[Series[Product[(1 - x^(3*k))^5 / ((1 - x^k)^3 * (1 - x^(6*k))^2), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Oct 09 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Oct 08 2017
STATUS
approved