OFFSET
0,4
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..100
FORMULA
a(n) ~ c * d^n / n^(3/2), where d = 4.076293... and c = 0.187307... - Vaclav Kotesovec, Sep 08 2021
EXAMPLE
a(4) = #{16, 11+5, 10+6, 9+7, 8+8, 6+5+5} = 6.
MAPLE
a := proc (n) local G, Gser: G := 1/(product(1-x^j, j = n+1 .. n^2)): Gser := series(G, x = 0, n^2+5): coeff(Gser, x, n^2) end proc: 1, seq(a(n), n = 1 .. 27); # Emeric Deutsch, Jun 22 2009
MATHEMATICA
a[n_] := a[n] = 1/Product[1 - x^j, {j, n + 1, n^2}] + O[x]^(n^2 + 1) // CoefficientList[#, x]& // Last;
Table[Print["a(", n, ") = ", a[n]]; a[n], {n, 0, 28}] (* Jean-François Alcover, May 18 2017, adapted from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 10 2009
EXTENSIONS
Extended by Emeric Deutsch, Jun 22 2009
a(0)=1 from Alois P. Heinz, Dec 21 2014
STATUS
approved