A335752 The lexicographically earliest sequence of primes, each two of which sum to a triprime (A014612).

3, 5, 47, 239, 3023, 27983, 53231, 118343, 198959, 452831, 580871, 9364871, 26386463, 67876751, 662675543, 2952903983, 22614861263

Offset: 1

Author

Zak Seidov, Jul 19 2020

Keywords

• nonn
• more

Examples

			3 + 5 = 8 = 2*2*2, 3 + 47 = 50 = 2*5*5, 5 + 47 = 52 = 2*2*13.
		

Crossrefs

Cf. A000040, A014612, A113875.

Programs

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 *)

Extensions

a(17) from Amiram Eldar, Jul 22 2020

Name edited by Jon E. Schoenfield, Oct 04 2021