OFFSET
0,3
COMMENTS
Number of partitions of n into squares of n kinds.
LINKS
FORMULA
From Vaclav Kotesovec, Mar 23 2018: (Start)
a(n) ~ c * d^n / sqrt(n), where
d = 4.216358447600641565890184638418336163396695730036... and
c = 0.26442245016754864773722176155288663999776... (End)
MAPLE
a:= proc(m) option remember; local b; b:= proc(n, i)
option remember; `if`(n=0, 1, `if`(i<1, 0, add(
binomial(m+j-1, j)*b(n-i^2*j, i-1), j=0..n/i^2)))
end: b(n, isqrt(n))
end:
seq(a(n), n=0..30); # Alois P. Heinz, Mar 17 2018
MATHEMATICA
Table[SeriesCoefficient[Product[1/(1 - x^k^2)^n, {k, 1, n}], {x, 0, n}], {n, 0, 27}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 17 2018
STATUS
approved