login
A345060
a(n) = A071324(n) - A206369(n).
5
0, 0, 0, 0, 0, 2, 0, 0, 0, 2, 0, 2, 0, 2, 4, 0, 0, 6, 0, 0, 4, 2, 0, 6, 0, 2, 0, 0, 0, 14, 0, 0, 4, 2, 8, 4, 0, 2, 4, 4, 0, 20, 0, 0, 8, 2, 0, 10, 0, 10, 4, 0, 0, 20, 8, 8, 4, 2, 0, 16, 0, 2, 4, 0, 8, 28, 0, 0, 4, 18, 0, 14, 0, 2, 20, 0, 12, 32, 0, 4, 0, 2, 0, 18, 8, 2, 4, 10, 0, 40, 12, 0, 4, 2, 8, 22, 0, 14, 0, 0, 0, 40
OFFSET
1,6
FORMULA
a(n) = A071324(n) - A206369(n).
PROG
(PARI)
A071324(n) = my(d=Vecrev(divisors(n))); sum(k=1, #d, (-1)^(k+1)*d[k]); \\ From A071324
A206369(n) = sumdiv(n, d, eulerphi(n/d) * issquare(d)); \\ From A206369
A345060(n) = (A071324(n)-A206369(n));
CROSSREFS
Cf. A317923 (positions of zeros), A345064 (and their characteristic function).
Sequence in context: A172246 A087893 A079169 * A097106 A175801 A361250
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 07 2021
STATUS
approved