A179032 Emirps whose only prime digits are one or more 2's.
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
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Extensions
Terms confirmed by Ray Chandler, Jul 13 2010