OFFSET
1,1
MATHEMATICA
Select[Prime/@Range[500], PrimeQ[2#+1]&&EvenQ[PrimePi[2#+1]-PrimePi[ # ]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 03 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 09 2002
STATUS
approved