OFFSET
1,2
MATHEMATICA
Join[{1}, Select[Range[2, 400], PrimeQ[Prime[ # ] + 2*(# - 1)*Prime[ # - 1]] &]]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
J. M. Bergot, May 30 2007
EXTENSIONS
Edited and extended by Stefan Steinerberger, Jul 26 2007
STATUS
approved