A242772 The lesser of twin primes p1 such that 2*p1 + p2 is a prime number (A174913) and also the lesser of other twin primes in A174913.
5, 11489, 32969, 33329, 33599, 42839, 58109, 93809, 96329, 114599, 180179, 272999, 309539, 334889, 401309, 540539, 633569, 717089, 784349, 820409, 870239, 879689, 907139, 948089, 989249, 991619, 994559, 1020959, 1028579, 1044749, 1185659, 1189649, 1245449, 1253909
Offset: 1
Keywords
Examples
a(1) = A174913(2) = 5 and 2*5 + 7 = 17 = A174913(3).
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[10^6], And @@ PrimeQ[{#, # + 2,(p = 3*# + 2), p + 2, 3*p + 2}] &] (* Amiram Eldar, Dec 31 2019 *)
-
PARI
isok(p) = isprime(p) && isprime(p+2) && isprime(q=3*p+2) && isprime(q+2) && isprime(3*q+2); \\ Michel Marcus, May 23 2014
Comments