Emirp

Author

Eric W. Weisstein
August 17, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PrimeNumbers/Emirp.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Emirp.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Code

EmirpQ[p_?PrimeQ]:=Module[{l=IntegerDigits[p],r},
l=!=(r=Reverse[l])&&PrimeQ[FromDigits[r]]
]

Enumeration

Select[Prime[Range[100]],EmirpQ]

Binary Plot

<<Utilities`Plot`

Show[PixelPerfect[NaryPlot[Select[Prime[Range[2000]],EmirpQ]],BlockSize->2]]