OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
seq(coeff(series(add(x^k/(1+x^k)^3, k=1..n), x, n+1), x, n), n = 1 .. 50); # Muniru A Asiru, Oct 23 2018
MATHEMATICA
nmax = 50; Rest[CoefficientList[Series[Sum[x^k/(1 + x^k)^3, {k, 1, nmax}], {x, 0, nmax}], x]]
Table[Sum[(-1)^(d + 1) d (d + 1)/2, {d, Divisors[n]}], {n, 50}]
CROSSREFS
KEYWORD
sign,look
AUTHOR
Ilya Gutkovskiy, Oct 23 2018
STATUS
approved