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