A068104 Smallest prime starting with n 3s.

2, 3, 331, 3331, 33331, 333331, 3333331, 33333331, 3333333319, 33333333329, 333333333323, 3333333333301, 33333333333319, 333333333333307, 3333333333333301, 33333333333333323, 333333333333333331

Offset: 0

Author

Amarnath Murthy, Feb 20 2002

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A065584, A068103, A068105.

Programs

Mathematica

Join[{2,3},Table[SelectFirst[Join[10FromDigits[PadRight[{},k,3]]+{1,7,9},Flatten[Table[100 FromDigits[PadRight[{},k,3]]+10n+{1,3,7,9},{n,0,9}]],Flatten[Table[1000 FromDigits[PadRight[{},k,3]]+100n+{1,3,7,9},{n,0,99}]]],PrimeQ],{k,2,20}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 01 2019 *)

Extensions

More terms from Sascha Kurz, Mar 19 2002