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

%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