OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
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 *)
PROG
(PARI) je=[]; for(n=1, 300, if(isprime(n), n+1, x=bigomega(n); je=concat(je, x))); je
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 09 2001
STATUS
approved