login
A179032
Emirps whose only prime digits are one or more 2's.
2
1021, 1201, 1229, 1249, 1429, 9029, 9209, 9221, 9241, 9421, 10429, 11621, 12109, 12119, 12149, 12241, 12269, 12289, 12491, 12611, 12619, 12641, 12689, 12809, 12829, 12841, 12919, 14029, 14221, 14621, 14629, 14821, 14929, 16249, 16829
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[2000]], !PalindromeQ[#]&&PrimeQ[IntegerReverse[#]] && Union[ Select[ IntegerDigits[ #], PrimeQ]]=={2}&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 06 2020 *)
CROSSREFS
Sequence in context: A214732 A088290 A209620 * A179033 A082059 A081633
KEYWORD
base,nonn
AUTHOR
Lekraj Beedassy, Jun 25 2010
EXTENSIONS
Terms confirmed by Ray Chandler, Jul 13 2010
STATUS
approved