OFFSET
1,1
EXAMPLE
3 + 5 = 8 = 2*2*2, 3 + 47 = 50 = 2*5*5, 5 + 47 = 52 = 2*2*13.
MATHEMATICA
ps = {3}; Do[p = NextPrime[ps[[-1]]]; While[! AllTrue[ps + p, PrimeOmega[#] == 3 &], p = NextPrime[p]]; AppendTo[ps, p], {10}]; ps (* Amiram Eldar, Jul 22 2020 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Zak Seidov, Jul 19 2020
EXTENSIONS
a(17) from Amiram Eldar, Jul 22 2020
Name edited by Jon E. Schoenfield, Oct 04 2021
STATUS
approved