|
|
A367864
|
|
a(n) = Sum_{d|n} d * binomial(n,d).
|
|
0
|
|
|
1, 4, 6, 20, 10, 102, 14, 352, 270, 1370, 22, 8340, 26, 24234, 16410, 110512, 34, 551754, 38, 1944880, 817992, 7760258, 46, 39190392, 265700, 135208502, 42190254, 570003392, 58, 2631501240, 62, 9701577536, 2128920354, 39671306930, 48694870, 179231802444, 74
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(p) = 2p, for p prime.
|
|
MAPLE
|
a:= n-> n*add(binomial(n-1, d-1), d=numtheory[divisors](n)):
|
|
MATHEMATICA
|
Table[Sum[d*Binomial[n, d], {d, Divisors[n]}], {n, 50}]
|
|
PROG
|
(PARI) a(n) = sumdiv(n, d, d * binomial(n, d)); \\ Michel Marcus, Dec 03 2023
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|