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,1

Links

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

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 *)

Crossrefs

Cf. A068690.

Sequence in context: A135423 A114017 A316085 * A093135 A305754 A202997

Adjacent sequences: A068688 A068689 A068690 * A068692 A068693 A068694

Keyword

base,nonn

Author

Amarnath Murthy, Mar 03 2002

Extensions

More terms from Sascha Kurz, Mar 17 2002

Status

approved