A289641 a(n) = bigomega(n) - mu(n).

-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

Vincenzo Librandi, Table of n, a(n) for n = 1..10000

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

Cf. A001222, A008683, A249901.

Sequence in context: A210452 A347037 A240301 * A209312 A054715 A254668

Adjacent sequences: A289638 A289639 A289640 * A289642 A289643 A289644

Keyword

sign

Author

Vincenzo Librandi, Jul 09 2017

Status

approved