login
A141668
a(n) = tau(n) * (NumberOfPartitions(n) - 1).
1
0, 0, 2, 4, 12, 12, 40, 28, 84, 87, 164, 110, 456, 200, 536, 700, 1150, 592, 2304, 978, 3756, 3164, 4004, 2508, 12592, 5871, 9740, 12036, 22302, 9128, 44824
OFFSET
0,3
LINKS
FORMULA
a(n) = A000005(n)*(A000041(n) - 1) = A000005(n)*A000065(n).
MATHEMATICA
f[n_] = DivisorSigma[0, n]*PartitionsP[n] - DivisorSigma[0, n]; Table[f[n], {n, 1, 30}]
PROG
(PARI) a(n) = if (n, numdiv(n)*(numbpart(n)-1), 0); \\ Michel Marcus, Jun 11 2018
CROSSREFS
Sequence in context: A375551 A342311 A358502 * A087796 A268494 A306851
KEYWORD
nonn
AUTHOR
STATUS
approved