A068161 Smallest prime beginning and ending in at least n 3's.

3, 33533, 3331333, 3333133333, 333331033333, 33333362333333, 333333313333333, 333333332933333333, 33333333316333333333, 3333333333133333333333, 33333333333733333333333

Offset: 1

Author

Amarnath Murthy, Feb 24 2002

Keywords

• base
• nonn
• changed

Examples

			a(2) = 33533 is a prime that starts with 33 and ends in 33 (two 3's).
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..100

Crossrefs

Cf. A068160.

Programs

Mathematica

Join[{3},Table[With[{c=PadRight[{},n,3]},Module[{k=1},While[!PrimeQ[FromDigits[Join[c,IntegerDigits[k],c]]],k++];FromDigits[Join[c,IntegerDigits[k],c]]]],{n,2,15}]] (* Harvey P. Dale, Sep 02 2025 *)

Extensions

Corrected and extended by Robert Gerbicz, Sep 06 2002