OFFSET
1,2
EXAMPLE
a(4) = Sum_{d|4} d^p(d) = 1^1 + 2^2 + 4^5 = 1029.
MATHEMATICA
Table[Sum[k^PartitionsP[k] (1 - Ceiling[n/k] + Floor[n/k]), {k, n}], {n, 12}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, May 19 2021
STATUS
approved