%I #6 Apr 26 2017 02:49:12
%S 0,0,0,2,0,2,0,3,2,2,0,3,0,2,2,4,0,3,0,3,2,2,0,4,2,2,3,3,0,3,0,5,2,2,
%T 2,4,0,2,2,4,0,3,0,3,3,2,0,5,2,3,2,3,0,4,2,4,2,2,0,4,0,2,3,6,2,3,0,3,
%U 2,3,0,5,0,2,3,3,2,3,0,5,4,2,0,4,2,2,2,4,0,4,2,3,2,2,2,6,0,3,3,4,0,3,0,4,3
%N a(n) = 0 if n is prime, otherwise A001222(n).
%H G. C. Greubel, <a href="/A144494/b144494.txt">Table of n, a(n) for n = 1..5000</a>
%p with(numtheory); f:=n->if isprime(n) then 0 else bigomega(n); fi;
%t Table[If[PrimeQ[n], 0, PrimeOmega[n]], {n,1,100}] (* _G. C. Greubel_, Apr 25 2017 *)
%Y Cf. A001221, A001222, A087624, A055636.
%K nonn
%O 1,4
%A _N. J. A. Sloane_, Dec 12 2008