OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..80
FORMULA
Conjecture: limit n->infinity a(n)^(1/n^2) = exp(exp(-1)) = 1.444667861...
MAPLE
b:= proc(n, i, k) option remember; `if`(n=0, 1, `if`(i<1, 0,
add(b(n-i*j, i-1, k)*binomial(i^k, j), j=0..n/i)))
end:
a:= n-> b(n$3):
seq(a(n), n=0..20); # Alois P. Heinz, Oct 16 2017
MATHEMATICA
Table[SeriesCoefficient[Product[(1+x^k)^(k^n), {k, 1, n}], {x, 0, n}], {n, 0, 20}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Mar 25 2016
STATUS
approved