1,4
G. C. Greubel, Table of n, a(n) for n = 1..5000
with(numtheory); f:=n->if isprime(n) then 0 else bigomega(n); fi;
Table[If[PrimeQ[n], 0, PrimeOmega[n]], {n, 1, 100}] (* G. C. Greubel, Apr 25 2017 *)
Cf. A001221, A001222, A087624, A055636.
Sequence in context: A153585 A169611 A242460 * A136166 A259525 A319071
Adjacent sequences: A144491 A144492 A144493 * A144495 A144496 A144497
nonn
N. J. A. Sloane, Dec 12 2008
approved