|
%I
%S 1021,1201,1229,1249,1429,9029,9209,9221,9241,9421,10429,11621,12109,
%T 12119,12149,12241,12269,12289,12491,12611,12619,12641,12689,12809,
%U 12829,12841,12919,14029,14221,14621,14629,14821,14929,16249,16829
%N Emirps whose only prime digits are one or more 2's.
%H Harvey P. Dale, <a href="/A179032/b179032.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2000]],!PalindromeQ[#]&&PrimeQ[IntegerReverse[#]] && Union[ Select[ IntegerDigits[ #],PrimeQ]]=={2}&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 06 2020 *)
%Y Cf. A006567, A179033.
%K base,nonn
%O 1,1
%A _Lekraj Beedassy_, Jun 25 2010
%E Terms confirmed by _Ray Chandler_, Jul 13 2010
|
