OFFSET
0,7
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000
FORMULA
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1,
`if`(i<1, 0, b(n, i-1)+`if`(i>n, 0, b(n-i, i))))
end:
a:= n-> add(k * b(n-k*(k+1), k), k=1..floor(sqrt(n))):
seq(a(n), n=0..60); # after Alois P. Heinz
MATHEMATICA
nmax = 60; CoefficientList[Series[Sum[n * x^(n*(n+1)) / Product[1 - x^k, {k, 1, n}], {n, 0, Sqrt[nmax]}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Mar 09 2020
STATUS
approved