OFFSET
1,1
MATHEMATICA
Prime[ Select[ Range[2738], PrimeQ[ 6Prime[ # ] + 1] && PrimeQ[(Prime[ # ] - 1)/6] & ]]
CROSSREFS
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