This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A068104 #7 Jun 01 2019 18:57:03
%S A068104 2,3,331,3331,33331,333331,3333331,33333331,3333333319,33333333329,
%T A068104 333333333323,3333333333301,33333333333319,333333333333307,
%U A068104 3333333333333301,33333333333333323,333333333333333331
%N A068104 Smallest prime starting with n 3s.
%t A068104 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 A068104 Cf. A065584, A068103, A068105.
%K A068104 base,easy,nonn
%O A068104 0,1
%A A068104 _Amarnath Murthy_, Feb 20 2002
%E A068104 More terms from _Sascha Kurz_, Mar 19 2002