1,3

Prime factors are counted with multiplicity. [Harvey P. Dale, Sep 20 2011]

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

Table[n-PrimeOmega[n], {n, 70}] (* Harvey P. Dale, Sep 20 2011 *)

(PARI) a(n) = n - bigomega(n); \\ Michel Marcus, Apr 08 2018

(MAGMA) [n eq 1 select 1 else n-(&+[p[2]: p in Factorization(n)]): n in [1..100]]; // Vincenzo Librandi, Apr 09 2018

Cf. A001222, A064800, A069355.

Sequence in context: A048275 A211508 A109874 * A007730 A330271 A257686

Adjacent sequences: A069342 A069343 A069344 * A069346 A069347 A069348

nonn

Reinhard Zumkeller, Mar 18 2002

approved