login
A085957
Primes p such that 6p + 1 and (p-1)/6 are primes.
4
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,1
MATHEMATICA
Prime[ Select[ Range[2738], PrimeQ[ 6Prime[ # ] + 1] && PrimeQ[(Prime[ # ] - 1)/6] & ]]
CROSSREFS
Sequence in context: A050670 A142318 A246511 * A119594 A066034 A228213
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 16 2003
EXTENSIONS
Edited and extended by Zak Seidov and Robert G. Wilson v, Jul 18 2003
STATUS
approved