OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
n=1: prime(1) + a(1) = 2 + 43 = 45 = 3*3*5;
n=2: prime(2) + a(2) = 3 + 5 = 8 = 2*2*2;
n=3: prime(3) + a(3) = 5 + 7 = 12 = 2*2*3;
n=4: prime(4) + a(4) = 7 + 11 = 18 = 2*3*3;
n=5: prime(5) + a(5) = 11 + 17 = 28 = 2*2*7;
each is the product of 3 primes.
MAPLE
f:= proc(n) local p, q;
p:= ithprime(n);
q:= p;
do
q:= nextprime(q);
until numtheory:-bigomega(p+q)=3;
q
end proc:
map(f, [$1..100]); # Robert Israel, Jan 08 2024
MATHEMATICA
s = {43}; p = 2; Do[p = NextPrime[p]; q = p; While[3 != PrimeOmega[p + q], q = NextPrime[q]]; AppendTo[s, q], {200}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 05 2022
STATUS
approved