A085957 Primes p such that 6p + 1 and (p-1)/6 are primes.

13, 103, 283, 367, 607, 787, 907, 1987, 2203, 2767, 3643, 4507, 5623, 5827, 6907, 7927, 7963, 8167, 8887, 9067, 9643, 10867, 11083, 11443, 12487, 13723, 14083, 14143, 16747, 17107, 17827, 19507, 19543, 20743, 20947, 21487, 22567, 24043

Offset: 1

Author

Amarnath Murthy, Jul 16 2003

Keywords

• nonn

Crossrefs

Cf. A085956, A085958.

Programs

Mathematica

Prime[ Select[ Range[2738], PrimeQ[ 6Prime[ # ] + 1] && PrimeQ[(Prime[ # ] - 1)/6] & ]]

Extensions

Edited and extended by Zak Seidov and Robert G. Wilson v, Jul 18 2003