login
A362203
First of three consecutive primes p,q,r such that p+q, p+r and q+r are all triprimes.
1
1559, 3449, 5237, 5987, 9241, 12119, 16787, 16943, 22397, 22871, 24697, 27143, 29881, 30809, 33203, 40241, 41149, 50627, 57601, 59473, 60169, 64817, 69151, 73727, 78929, 86629, 89231, 94747, 97511, 98479, 108037, 114847, 119513, 122533, 123887, 132371, 134741, 134789, 138739, 140419, 141539
OFFSET
1,1
COMMENTS
This would not work with semiprimes instead of triprimes: for consecutive primes p, q, it is impossible for p+q to be a semiprime.
First of three consecutive primes p, q, r such that (p+q)/2, (p+r)/2 and (q+r)/2 are all semiprimes.
LINKS
EXAMPLE
a(3) = 5237 is a term because 5237, 5261 and 5273 are consecutive primes with 5237 + 5261 = 10498 = 2 * 29 * 181, 5237 + 5273 = 10510 = 2 * 5 * 1051 and 5261 + 5273 = 10534 = 2 * 23 * 229 triprimes.
MAPLE
q:= 2: r:= 3: R:= NULL: count:= 0:
while count < 100 do
p:= q; q:= r; r:= nextprime(r);
if numtheory:-bigomega(p+q)=3 and numtheory:-bigomega(p+r)=3 and numtheory:-bigomega(q+r)=3
then R:= R, p; count:= count+1;
fi
od:
R;
MATHEMATICA
p = 2; q = 3; r = 5; s = {}; Do[If[{3, 3, 3} == PrimeOmega[{p + q, q + r, p + r}], AppendTo[s, p]]; p = q; q = r; r = NextPrime[r], {100000}]; s
CROSSREFS
Sequence in context: A252314 A186393 A025026 * A368785 A368786 A343867
KEYWORD
nonn
AUTHOR
Zak Seidov and Robert Israel, Apr 10 2023
STATUS
approved