OFFSET
1,1
COMMENTS
It appears that in most cases b - a = 8.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 222 ix a term because 222 = 2*3*37 is a triprime, the next triprime is 230 = 2 5 * 23, and 222 + 230 = 452 = 2^2 * 113 and 230 - 222 = 8 = 2^3 are triprimes.
MAPLE
with(priqueue);
a:= 8: R:= NULL: count:= 0:
initialize(triprimes);
insert([-8, 0, 2], triprimes);
while count < 50 do
v:= extract(triprimes);
if v[2] = 3 then
b:= -v[1];
if numtheory:-bigomega(b-a) = 3 and numtheory:-bigomega(b+a)=3 then
R:= R, a; count:= count+1
fi;
a:= b;
else
insert(v+[0, 1, 0], triprimes);
q:= nextprime(v[3]);
w:= v[1]*(q/v[3])^(3-v[2]);
insert([w, v[2], q], triprimes)
fi
od:
R;
MATHEMATICA
Select[Partition[Select[Range[12000], PrimeOmega[#] == 3 &], 2, 1], AllTrue[{#1 + #2, #2 - #1}, PrimeOmega[#] == 3 &] & @@ # &][[All, 1]] (* Michael De Vlieger, Sep 20 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov and Robert Israel, Sep 19 2023
STATUS
approved