|
|
A306898
|
|
a(n) = Sum_{d|n} 2^d*phi(2*n/d).
|
|
4
|
|
|
2, 8, 12, 32, 40, 96, 140, 320, 540, 1120, 2068, 4320, 8216, 16688, 32880, 66176, 131104, 263376, 524324, 1050880, 2097480, 4198480, 8388652, 16786368, 33554600, 67125344, 134218836, 268468928, 536870968, 1073809920, 2147483708, 4295099648, 8589938808, 17180131456, 34359739120, 68720011776
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
|
|
MATHEMATICA
|
Table[DivisorSum[n, 2^# *EulerPhi[2 n/#] &], {n, 36}] (* Michael De Vlieger, Mar 18 2019 *)
|
|
PROG
|
(PARI) a(n) = sumdiv(n, d, 2^d*eulerphi(2*n/d)); \\ Michel Marcus, Mar 16 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|