A168438 - OEIS

%I #10 Aug 27 2024 13:35:49

%S 23,233,2333,3323,23333,323333,333233,333323,3233333,3333233,32333333,

%T 33323333,333233333,3233333333,3333323333,3333332333,3333333323,

%U 23333333333,333332333333,333333333323,33332333333333,33333233333333,33333333332333,33333333333323,323333333333333,332333333333333,333333333233333,3233333333333333,3323333333333333,3333333333323333,23333333333333333,33233333333333333,33333333333233333,33333333333333323,333333323333333333,3333333333332333333,33332333333333333333,33333323333333333333,333333333333333333233

%N Primes consisting of only 3's and a single 2 in base 10.

%C 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. (From _Alonso del Arte_ Dec 15 2009)

%H 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 = Select[Union[Flatten[Table[FromDigits[Flatten[{Table[3, {j - 1}], 2, Table[3, {i - j}]}]], {i, 2, 25}, {j, 1, i}]]], PrimeQ]

%t Select[Flatten[Table[FromDigits/@Permutations[PadRight[{2},n,3]],{n,2,21}]],PrimeQ] (* _Harvey P. Dale_, Aug 27 2024 *)

%K nonn,base

%O 1,1

%A _Lekraj Beedassy_, Nov 25 2009

%E a(1 to 20) verified and a(21 to 39) added by _Alonso del Arte_ Dec 15 2009

%E Definition clarified by _Harvey P. Dale_, Aug 27 2024