A138974 Primes consisting of only 3's and at most one 4 in base 10.

3, 43, 433, 3343, 3433, 33343, 333433, 334333, 343333, 3333433, 3433333, 34333333, 333334333, 3334333333, 33333333343, 333333343333, 3333333333433, 3433333333333, 33333333433333, 3333333333333343, 43333333333333333, 3333333333333334333, 3333334333333333333

Offset: 1

Author

Lekraj Beedassy, Apr 05 2008

Keywords

• nonn
• base

Comments

The 4 may not be the least significant digit. - Alonso del Arte, Dec 15 2009

Links

• T. D. Noe, Table of n, a(n) for n = 1..590 (terms with up to 300 digits)

Programs

Mathematica

Select[Union[{3}, Flatten[Table[FromDigits[Flatten[{Table[3, {j - 1}], 4, Table[3, {i - j}]}]], {i, 2, 25}, {j, 1, i}]]], PrimeQ]
Join[{3},Table[Select[FromDigits/@Permutations[Join[{4},Table[3,n]]], PrimeQ],{n,20}]//Flatten]//Sort (* Harvey P. Dale, Apr 17 2017 *)

Extensions

a(1), a(22-37) from Alonso del Arte Dec 15 2009