OFFSET
1,1
MATHEMATICA
Select[Prime[Range[1000]], PrimePi[7*NextPrime[#]/2] == PrimePi[7*#/2] &] (* T. D. Noe, Sep 20 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Sep 17 2011
EXTENSIONS
Corrected by R. J. Mathar, Sep 20 2011
STATUS
approved