Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A289641
a(n) = bigomega(n) - mu(n).
1
-1, 2, 2, 2, 2, 1, 2, 3, 2, 1, 2, 3, 2, 1, 1, 4, 2, 3, 2, 3, 1, 1, 2, 4, 2, 1, 3, 3, 2, 4, 2, 5, 1, 1, 1, 4, 2, 1, 1, 4, 2, 4, 2, 3, 3, 1, 2, 5, 2, 3, 1, 3, 2, 4, 1, 4, 1, 1, 2, 4, 2, 1, 3, 6, 1, 4, 2, 3, 1, 4, 2, 5, 2, 1, 3, 3, 1, 4, 2, 5, 4, 1, 2
OFFSET
1,2
LINKS
FORMULA
a(n) = A001222(n) - A008683(n).
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