|
|
|
|
1, 1, 4, 6, 13, 12, 29, 22, 46, 48, 72, 67, 137, 114, 177, 221, 295, 314, 475, 509, 727, 855, 1068, 1278, 1743, 2008, 2514, 3091, 3858, 4594, 5814, 6873, 8509, 10242, 12412, 14988, 18265, 21674, 26129, 31302, 37618, 44624, 53468, 63304, 75395, 89359
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[PartitionsP[n] + n*(DivisorSigma[0, n] - 1), {n, 0, 50}] (* G. C. Greubel, Jul 05 2016 *)
|
|
PROG
|
(PARI) a(n) = if (n, numbpart(n) + n*(numdiv(n)-1), numbpart(0)); \\ Michel Marcus, Jul 06 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|