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,1

Links

Table of n, a(n) for n=1..39.

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 *)

Crossrefs

Cf. A006567, A128388, A128389.

Sequence in context: A161487 A121947 A141946 * A142029 A216970 A059223

Adjacent sequences: A128387 A128388 A128389 * A128391 A128392 A128393

Keyword

nonn,less,base

Author

Lekraj Beedassy, Feb 28 2007

Extensions

Corrected by Ray Chandler, Mar 06 2007

Status

approved