OFFSET
4,2
COMMENTS
a(n) = 0 if and only if n is semiprime.
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 4..10000
MAPLE
A106325 := proc(n)
for a from n do
if numtheory[bigomega](a) = 2 then
return a;
end if;
end do:
end proc;
prevSpr := proc(n)
for a from n by -1 do
if numtheory[bigomega](a) = 2 then
return a;
end if;
end do:
end proc;
A200927 := proc(n)
A106325(n)-prevSpr(n) ;
end proc:
seq(A200927(n), n=4..80) ; # R. J. Mathar, Nov 26 2011
MATHEMATICA
Table[a = b = 0; While[! PrimeOmega[n - a] == 2, a++]; While[! PrimeOmega[n + b] == 2, b++]; a + b, {n, 4, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Nov 24 2011
STATUS
approved