OFFSET
0,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
FORMULA
MAPLE
with(numtheory): etr:= proc(p) local b; b:=proc(n) option remember; local d, j; if n=0 then 1 else add(add(d*p(d), d=divisors(j)) *b(n-j), j=1..n)/n fi end end: a:=etr(n-> 2*n+3): seq(a(n), n=0..50); # after Alois P. Heinz
MATHEMATICA
nmax=50; CoefficientList[Series[Product[1/(1-x^k)^(2*k+3), {k, 1, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Mar 07 2015
STATUS
approved