This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A177850 #8 Feb 18 2019 02:31:09
%S A177850 149,1009,10009,100049,1000849,10000169,100000891,1000000009,
%T A177850 10000001041,100000000669,1000000000091,10000000001011,
%U A177850 100000000000469,1000000000004449,10000000000001101,100000000000000049
%N A177850 Smallest n-digit emirp with only nonprime digits.
%C A177850 Least value of emirps with only nonprime digits (i.e., 0,1,4,6,8,9) A128390, with n digits. This is to primes with nonprime digits (A034844) as smallest n-digit emirp with only prime digits (A177513) is to primes with only prime digits.
%e A177850 a(6) = 100049 because all digits {0,1,4,9} are nonprime, and 100049 is prime, and R(100049) = A004086(100049) = 940001 is prime, and there is no smaller 6-digit number meeting these criteria.
%p A177850 isA084984 := proc(n) convert(convert(n,base,10),set) ; if % intersect {2,3,5,7} = {} then true; else false; end if; end proc:
%p A177850 A177850 := proc(n) local a; a := 10^(n-1) ; while not (isA006567(a) and isA084984(a)) do a := nextprime(a) ; end do; if a < 10^n then return a ; else return -1 ; end if; end proc:
%p A177850 seq(A177850(n),n=3..40) ; # _R. J. Mathar_, May 24 2010
%Y A177850 Cf. A000040, A004086, A006567, A034844, A128390, A177513.
%K A177850 base,easy,nonn
%O A177850 3,1
%A A177850 _Jonathan Vos Post_, May 14 2010
%E A177850 More terms from _R. J. Mathar_, May 24 2010