The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #8 Oct 10 2019 10:23:19
%S 94889,98849,98999,99989,946949,949649,9446989,9464849,9466949,
%T 9468869,9468989,9484649,9489899,9494689,9496649,9648889,9666689,
%U 9688649,9689689,9699889,9844699,9844889,9846989,9864889,9864949,9866669
%N Emirps with only composite digits (i.e., 4, 6, 8, 9).
%C Subsequence of A128374.
%t Select[Prime@Range[10^6], # != r[ # ] && PrimeQ[r[ # ]] && Intersection[IntegerDigits[ # ], {0, 1, 2, 3, 5, 7}] == {} &] (* _Ray Chandler_, Mar 06 2007 *)
%Y Cf. A006567, A128388, A128390.
%K nonn,less,base
%O 1,1
%A _Lekraj Beedassy_, Feb 28 2007
%E Extended by _Ray Chandler_, Mar 06 2007