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 A138974 #12 Apr 17 2017 09:22:25
%S A138974 3,43,433,3343,3433,33343,333433,334333,343333,3333433,3433333,
%T A138974 34333333,333334333,3334333333,33333333343,333333343333,3333333333433,
%U A138974 3433333333333,33333333433333,3333333333333343,43333333333333333,3333333333333334333,3333334333333333333
%N A138974 Primes consisting of only 3's and at most one 4 in base 10.
%C A138974 The 4 may not be the least significant digit. - _Alonso del Arte_, Dec 15 2009
%H A138974 T. D. Noe, <a href="/A138974/b138974.txt">Table of n, a(n) for n = 1..590</a> (terms with up to 300 digits)
%t A138974 Select[Union[{3}, Flatten[Table[FromDigits[Flatten[{Table[3, {j - 1}], 4, Table[3, {i - j}]}]], {i, 2, 25}, {j, 1, i}]]], PrimeQ]
%t A138974 Join[{3},Table[Select[FromDigits/@Permutations[Join[{4},Table[3,n]]], PrimeQ],{n,20}]//Flatten]//Sort (* _Harvey P. Dale_, Apr 17 2017 *)
%K A138974 nonn,base
%O A138974 1,1
%A A138974 _Lekraj Beedassy_, Apr 05 2008
%E A138974 a(1), a(22-37) from _Alonso del Arte_ Dec 15 2009