|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|