A128390 Emirps with only nonprime digits (i.e., 0, 1, 4, 6, 8, 9).

149, 199, 941, 991, 1009, 1061, 1069, 1091, 1109, 1181, 1409, 1499, 1601, 1619, 1669, 1811, 1901, 1949, 9001, 9011, 9041, 9161, 9491, 9601, 9661, 9941, 10009, 10061, 10069, 10091, 10499, 10889, 10891, 10909, 11149, 11161, 11489, 11699, 11909

Offset: 1

Author

Lekraj Beedassy, Feb 28 2007

Keywords

• nonn
• less
• base

Crossrefs

Cf. A006567, A128388, A128389.

Programs

Mathematica

Select[Prime@Range@(10^4), (r = IntegerReverse@#) != # && PrimeQ@r && Intersection[IntegerDigits@#, {2, 3, 5, 7}] == {} &] (* Ray Chandler, Mar 06 2007 corrected by Hans Rudolf Widmer, May 18 2024 *)

Extensions

Corrected by Ray Chandler, Mar 06 2007