%I #25 Oct 05 2021 04:50:26
%S 3,5,47,239,3023,27983,53231,118343,198959,452831,580871,9364871,
%T 26386463,67876751,662675543,2952903983,22614861263
%N The lexicographically earliest sequence of primes, each two of which sum to a triprime (A014612).
%e 3 + 5 = 8 = 2*2*2, 3 + 47 = 50 = 2*5*5, 5 + 47 = 52 = 2*2*13.
%t 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 *)
%Y Cf. A000040, A014612, A113875.
%K nonn,more
%O 1,1
%A _Zak Seidov_, Jul 19 2020
%E a(17) from _Amiram Eldar_, Jul 22 2020
%E Name edited by _Jon E. Schoenfield_, Oct 04 2021