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

23, 233, 2333, 3323, 23333, 323333, 333233, 333323, 3233333, 3333233, 32333333, 33323333, 333233333, 3233333333, 3333323333, 3333332333, 3333333323, 23333333333, 333332333333, 333333333323, 33332333333333, 33333233333333, 33333333332333, 33333333333323, 323333333333333, 332333333333333, 333333333233333, 3233333333333333, 3323333333333333, 3333333333323333, 23333333333333333, 33233333333333333, 33333333333233333, 33333333333333323, 333333323333333333, 3333333333332333333, 33332333333333333333, 33333323333333333333, 333333333333333333233

Offset: 1

Author

Lekraj Beedassy, Nov 25 2009

Keywords

• nonn
• base

Comments

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

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..181 (All terms with not more than 100 digits.)

Programs

Mathematica

A168438 = Select[Union[Flatten[Table[FromDigits[Flatten[{Table[3, {j - 1}], 2, Table[3, {i - j}]}]], {i, 2, 25}, {j, 1, i}]]], PrimeQ]
Select[Flatten[Table[FromDigits/@Permutations[PadRight[{2},n,3]],{n,2,21}]],PrimeQ] (* Harvey P. Dale, Aug 27 2024 *)

Extensions

a(1 to 20) verified and a(21 to 39) added by Alonso del Arte, Dec 15 2009

Definition clarified by Harvey P. Dale, Aug 27 2024