OFFSET
1,2
COMMENTS
If n is composite then the least significant digit is mandatorily a 9. Conjecture: No term is zero.
EXAMPLE
a(8) = 12202429: first digit is 1, the 2nd, 3rd, 5th and 7th digits are 2 (a prime) and the rest are composite.
MAPLE
with(combinat, cartprod): ds:=proc(s) local j, l: l:=nops(s): RETURN(add(s[j]*10^(l-j), j=1..l)):end: p:=[2, 3, 5, 7]:c:=[0, 4, 8, 6, 9]: ctpr:=proc(n) local m, T: m:=1: T:=cartprod([[1], seq(piecewise(isprime(i), p, c), i=2..n)]): while not T[finished] do m:=ds(T[nextvalue]()): if isprime(m) then RETURN(m) fi od: end: 1, seq(ctpr(n), n=1..20); (C. Ronaldo)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 22 2003
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 26 2004
STATUS
approved