OFFSET
3,1
COMMENTS
EXAMPLE
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.
MAPLE
isA084984 := proc(n) convert(convert(n, base, 10), set) ; if % intersect {2, 3, 5, 7} = {} then true; else false; end if; end proc:
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:
seq(A177850(n), n=3..40) ; # R. J. Mathar, May 24 2010
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, May 14 2010
EXTENSIONS
More terms from R. J. Mathar, May 24 2010
STATUS
approved