A249901 a(n) = mu(n) + bigomega(n).

1, 0, 0, 2, 0, 3, 0, 3, 2, 3, 0, 3, 0, 3, 3, 4, 0, 3, 0, 3, 3, 3, 0, 4, 2, 3, 3, 3, 0, 2, 0, 5, 3, 3, 3, 4, 0, 3, 3, 4, 0, 2, 0, 3, 3, 3, 0, 5, 2, 3, 3, 3, 0, 4, 3, 4, 3, 3, 0, 4, 0, 3, 3, 6, 3, 2, 0, 3, 3, 2, 0, 5, 0, 3, 3, 3, 3, 2

Offset

1,4

Comments

The 0 terms identify for the prime numbers.

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Index entries for sequences computed from exponents in factorization of n

Formula

a(n) = A008683(n) + A001222(n).

Maple

with(numtheory): a := n -> mobius(n) + bigomega(n):
seq(a(n), n = 1..78); # Peter Luschny, Jul 08 2017

Mathematica

Table[MoebiusMu[k] + PrimeOmega[k], {k, 200}]

Prog

(PARI) A249901(n) = (moebius(n) + bigomega(n)); \\ Antti Karttunen, Jul 08 2017
(Magma) [n eq 1 select 1 else &+[p[2]: p in Factorization(n)]+ MoebiusMu(n): n in [1..120]]; // Vincenzo Librandi, Jul 09 2017

Crossrefs

Cf. A001222, A008683, A249767.

Sequence in context: A035376 A259708 A029220 * A253274 A365920 A337980

Adjacent sequences: A249898 A249899 A249900 * A249902 A249903 A249904

Keyword

nonn

Author

Ke Xiao, Jan 13 2015

Status

approved