[go: up one dir, main page]

login
A128390
Emirps with only nonprime digits (i.e., 0, 1, 4, 6, 8, 9).
6
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
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
KEYWORD
nonn,less,base
AUTHOR
Lekraj Beedassy, Feb 28 2007
EXTENSIONS
Corrected by Ray Chandler, Mar 06 2007
STATUS
approved