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 A168438 #14 Jul 30 2025 00:58:51
%S A168438 23,233,2333,3323,23333,323333,333233,333323,3233333,3333233,32333333,
%T A168438 33323333,333233333,3233333333,3333323333,3333332333,3333333323,
%U A168438 23333333333,333332333333,333333333323,33332333333333,33333233333333,33333333332333,33333333333323,323333333333333,332333333333333,333333333233333,3233333333333333,3323333333333333,3333333333323333,23333333333333333,33233333333333333,33333333333233333,33333333333333323,333333323333333333,3333333333332333333,33332333333333333333,33333323333333333333,333333333333333333233
%N A168438 Primes consisting of only 3's and a single 2 in base 10.
%C A168438 The 2 may not be the least significant digit. However, it could be argued that 2 and 3 belong in this sequence; the former would be the only case in which 2 can be the least significant digit of a term in the sequence. - _Alonso del Arte_, Dec 15 2009
%H A168438 Harvey P. Dale, <a href="/A168438/b168438.txt">Table of n, a(n) for n = 1..181</a> (All terms with not more than 100 digits.)
%t A168438 A168438 = Select[Union[Flatten[Table[FromDigits[Flatten[{Table[3, {j - 1}], 2, Table[3, {i - j}]}]], {i, 2, 25}, {j, 1, i}]]], PrimeQ]
%t A168438 Select[Flatten[Table[FromDigits/@Permutations[PadRight[{2},n,3]],{n,2,21}]],PrimeQ] (* _Harvey P. Dale_, Aug 27 2024 *)
%K A168438 nonn,base
%O A168438 1,1
%A A168438 _Lekraj Beedassy_, Nov 25 2009
%E A168438 a(1 to 20) verified and a(21 to 39) added by _Alonso del Arte_, Dec 15 2009
%E A168438 Definition clarified by _Harvey P. Dale_, Aug 27 2024