login
A152771
a(n) = sigma(n) - 2*d(n) + 1.
4
0, 0, 1, 2, 3, 5, 5, 8, 8, 11, 9, 17, 11, 17, 17, 22, 15, 28, 17, 31, 25, 29, 21, 45, 26, 35, 33, 45, 27, 57, 29, 52, 41, 47, 41, 74, 35, 53, 49, 75, 39, 81, 41, 73, 67, 65, 45, 105, 52, 82, 65, 87, 51, 105, 65, 105, 73, 83, 57, 145
OFFSET
1,4
LINKS
FORMULA
a(n) = A000203(n) - 2*A000005(n) + 1 = A000203(n) - A114003(n) = A088580(n) - A062011(n). - Omar E. Pol, Sep 30 2017
G.f.: Sum_{k>=1} x^(3*k) / (1 - x^k)^2. - Ilya Gutkovskiy, Apr 24 2021
MATHEMATICA
Table[DivisorSigma[1, n] - 2 DivisorSigma[0, n] + 1, {n, 60}] (* Ivan Neretin, Sep 30 2017 *)
PROG
(PARI) a(n) = sigma(n) - 2*numdiv(n) + 1; \\ Michel Marcus, Sep 30 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Dec 14 2008
STATUS
approved