%I #17 Sep 08 2022 08:45:42
%S 108649,140869,168409,184609,904861,906481,946801,968041,1016489,
%T 1041869,1048609,1061849,1064689,1068409,1068491,1084469,1084609,
%U 1086469,1089461,1098469,1108469,1146809,1184069,1406689,1406849,1408619,1408699,1460089,1460189,1460981
%N Emirps using all nonprime digits (0, 1, 4, 6, 8, 9) and no others.
%C Subsequence of A128390.
%H K. D. Bajpai, <a href="/A157533/b157533.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[300000]],Union[IntegerDigits[#]]=={0,1,4,6,8,9}&&PrimeQ[IntegerReverse[#]]&&#!=IntegerReverse[#]&] (* _K. D. Bajpai_, Jan 11 2020 *)
%o (Magma) [ n : n in [100000..1410000] | Seqset(D) eq {0, 1, 4, 6, 8, 9}and n ne r and IsPrime(n) and IsPrime(r) where r is Seqint(Reverse(D)) where D is Intseq(n) ]; // _Klaus Brockhaus_, Mar 08 2009
%Y Cf. A128390.
%Y Cf. A006567 (emirps, primes whose reversal is a different prime). - _Klaus Brockhaus_, Mar 08 2009
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Mar 02 2009
%E Edited by _N. J. A. Sloane_, Mar 05 2009
%E More terms from _Klaus Brockhaus_ and _Ray Chandler_, Mar 08 2009
|