A157533 Emirps using all nonprime digits (0, 1, 4, 6, 8, 9) and no others.
108649, 140869, 168409, 184609, 904861, 906481, 946801, 968041, 1016489, 1041869, 1048609, 1061849, 1064689, 1068409, 1068491, 1084469, 1084609, 1086469, 1089461, 1098469, 1108469, 1146809, 1184069, 1406689, 1406849, 1408619, 1408699, 1460089, 1460189, 1460981
Offset: 1
Links
- K. D. Bajpai, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A128390.
Cf. A006567 (emirps, primes whose reversal is a different prime). - Klaus Brockhaus, Mar 08 2009
Programs
-
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 -
Mathematica
Select[Prime[Range[300000]],Union[IntegerDigits[#]]=={0,1,4,6,8,9}&&PrimeQ[IntegerReverse[#]]&&#!=IntegerReverse[#]&] (* K. D. Bajpai, Jan 11 2020 *)
Extensions
Edited by N. J. A. Sloane, Mar 05 2009
More terms from Klaus Brockhaus and Ray Chandler, Mar 08 2009
Comments