[go: up one dir, main page]

login
A319340
Sum of Euler totient function and its Dirichlet inverse: a(n) = A000010(n) + A023900(n).
14
2, 0, 0, 1, 0, 4, 0, 3, 4, 8, 0, 6, 0, 12, 16, 7, 0, 8, 0, 12, 24, 20, 0, 10, 16, 24, 16, 18, 0, 0, 0, 15, 40, 32, 48, 14, 0, 36, 48, 20, 0, 0, 0, 30, 32, 44, 0, 18, 36, 24, 64, 36, 0, 20, 80, 30, 72, 56, 0, 8, 0, 60, 48, 31, 96, 0, 0, 48, 88, 0, 0, 26, 0, 72, 48, 54, 120, 0, 0, 36, 52, 80, 0, 12, 128, 84, 112, 50, 0, 16
OFFSET
1,1
LINKS
FORMULA
a(n) = A000010(n) + A023900(n).
a(n) = A318833(n) - A051953(n).
PROG
(PARI)
A023900(n) = factorback(apply(p -> 1-p, factor(n)[, 1]));
A319340(n) = (eulerphi(n)+A023900(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 17 2018
STATUS
approved