A128389 Emirps with only composite digits (i.e., 4, 6, 8, 9).

94889, 98849, 98999, 99989, 946949, 949649, 9446989, 9464849, 9466949, 9468869, 9468989, 9484649, 9489899, 9494689, 9496649, 9648889, 9666689, 9688649, 9689689, 9699889, 9844699, 9844889, 9846989, 9864889, 9864949, 9866669

Offset: 1

Author

Lekraj Beedassy, Feb 28 2007

Keywords

• nonn
• less
• base

Comments

Subsequence of A128374.

Crossrefs

Cf. A006567, A128388, A128390.

Programs

Mathematica

Select[Prime@Range[10^6], # != r[ # ] && PrimeQ[r[ # ]] && Intersection[IntegerDigits[ # ], {0, 1, 2, 3, 5, 7}] == {} &] (* Ray Chandler, Mar 06 2007 *)

Extensions

Extended by Ray Chandler, Mar 06 2007