|
%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
|
