OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[PrimeOmega[k] - MoebiusMu[k], {k, 1, 100}]]
PROG
(Magma) [n eq 1 select -1 else &+[p[2]: p in Factorization(n)]- MoebiusMu(n): n in [1..120]];
(PARI) a(n)=my(f=factor(n)); bigomega(f)-moebius(f) \\ Charles R Greathouse IV, Jul 09 2017
CROSSREFS
KEYWORD
sign
AUTHOR
Vincenzo Librandi, Jul 09 2017
STATUS
approved