A062502 Number of prime divisors (with repetition) of the nonprimes (including 1).
0, 2, 2, 3, 2, 2, 3, 2, 2, 4, 3, 3, 2, 2, 4, 2, 2, 3, 3, 3, 5, 2, 2, 2, 4, 2, 2, 4, 3, 3, 3, 2, 5, 2, 3, 2, 3, 4, 2, 4, 2, 2, 4, 2, 3, 6, 2, 3, 3, 2, 3, 5, 2, 3, 3, 2, 3, 5, 4, 2, 4, 2, 2, 2, 4, 4, 2, 3, 2, 2, 2, 6, 3, 3, 4, 3, 4, 3, 2, 5, 3, 2, 5, 3, 2, 3, 3, 2, 2, 5, 2, 2, 2, 3, 3, 4, 7, 2, 3, 4, 2, 2, 4, 4, 3
Offset: 1
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
f:= proc(n) if not isprime(n) then numtheory:-bigomega(n) fi end proc: map(f, [$1..200]); # Robert Israel, Oct 01 2020
-
Mathematica
PrimeOmega/@Complement[Range[200],Prime[Range[PrimePi[200]]]] (* Harvey P. Dale, Apr 22 2011 *)
-
PARI
je=[]; for(n=1,300, if(isprime(n), n+1,x=bigomega(n); je=concat(je,x))); je