OFFSET
1,3
COMMENTS
Inverse Möbius transform of (-1)^pi(n) (A065357).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n) local d; add((-1)^numtheory:-pi(d), d=numtheory:-divisors(n)) end proc:
map(f, [$1..100]); # Robert Israel, Sep 13 2024
MATHEMATICA
Table[DivisorSum[n, (-1)^PrimePi[#] &], {n, 100}]
CROSSREFS
KEYWORD
sign
AUTHOR
Wesley Ivan Hurt, Jun 22 2024
STATUS
approved