A068691 Smallest n-digit prime with all even digits except the least significant digit.

3, 23, 223, 2003, 20021, 200003, 2000003, 20000003, 200000069, 2000000063, 20000000089, 200000000041, 2000000000003, 20000000000021, 200000000000027, 2000000000000021, 20000000000000003, 200000000000000003, 2000000000000000221, 20000000000000000401

Offset: 1

Author

Amarnath Murthy, Mar 03 2002

Keywords

• base
• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..500

Crossrefs

Cf. A068690.

Programs

Mathematica

evQ[n_]:=And@@EvenQ[Take[x=IntegerDigits[n],Length[x]-1]]; t={3}; Do[i=PrimePi[2*10^n]+1; While[!evQ[p=Prime[i]],i++]; AppendTo[t,p],{n,13}]; t (* Jayanta Basu, May 21 2013 *)

Extensions

More terms from Sascha Kurz, Mar 17 2002