OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..3300
Eric Weisstein's World of Mathematics, q-Pochhammer Symbol.
FORMULA
G.f.: Sum_{n>0} n*x^n/(1-2*x^n). - Vladeta Jovovic, Oct 27 2002
L.g.f.: -log(-(2;-x)_inf)/2, where (a;q)_inf is the q-Pochhammer symbol. - Vladimir Reshetnikov, Nov 20 2015
G.f.: Sum_{k>=1} 2^(k-1)*x^k/(1 - x^k)^2. - Ilya Gutkovskiy, Sep 10 2019
a(n) ~ 2^(n-1). - Vaclav Kotesovec, Oct 16 2019
EXAMPLE
G.f. = x + 4*x^2 + 7*x^3 + 16*x^4 + 21*x^5 + 52*x^6 + 71*x^7 + 160*x^8 + 277*x^9 + ...
MATHEMATICA
{0}~Join~Table[DivisorSum[n, 2^(n/# - 1) # &], {n, 1, 20}] (* Vladimir Reshetnikov, Nov 20 2015 *)
Table[SeriesCoefficient[-Log[-QPochhammer[2, x]] n/2, {x, 0, n}], {n, 0, 20}] (* Vladimir Reshetnikov, Nov 20 2015 *)
PROG
(PARI) a(n) = if (n<1, 0, sumdiv(n, d, d*2^(n/d - 1))); \\ Michel Marcus, Nov 21 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 16 2000
STATUS
approved