A068104 - OEIS

%I #7 Jun 01 2019 18:57:03

%S 2,3,331,3331,33331,333331,3333331,33333331,3333333319,33333333329,

%T 333333333323,3333333333301,33333333333319,333333333333307,

%U 3333333333333301,33333333333333323,333333333333333331

%N Smallest prime starting with n 3s.

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

%Y Cf. A065584, A068103, A068105.

%K base,easy,nonn

%O 0,1

%A _Amarnath Murthy_, Feb 20 2002

%E More terms from _Sascha Kurz_, Mar 19 2002