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

Comments

Subsequence of A128374.

Links

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

Mathematica

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

Crossrefs

Cf. A006567, A128388, A128390.

Sequence in context: A128376 A216122 A206411 * A258420 A206105 A230734

Adjacent sequences: A128386 A128387 A128388 * A128390 A128391 A128392

Keyword

nonn,less,base

Author

Lekraj Beedassy, Feb 28 2007

Extensions

Extended by Ray Chandler, Mar 06 2007

Status

approved