OFFSET
1,1
MATHEMATICA
Select[Prime[Range[500]], PrimePi[5*NextPrime[#]/2] == PrimePi[5*#/2] &] (* T. D. Noe, Sep 20 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Sep 17 2011
STATUS
approved