A199348 Primes having only {3, 4, 8} as digits.

3, 43, 83, 383, 433, 443, 883, 3343, 3433, 3833, 4483, 8443, 33343, 34483, 34843, 34883, 38333, 38833, 44383, 44483, 44843, 48383, 48883, 83383, 83443, 83833, 83843, 84443, 88843, 88883, 333383, 333433, 334333, 334843, 338383, 343333, 343433, 344483, 344843, 348433, 348443, 348833, 348883, 383483, 383833, 384343, 384383, 388483

Offset: 1

Author

M. F. Hasler, Nov 05 2011

Keywords

• nonn
• base

Comments

All terms end in 3 and those > 3 never have the same number of 4's and 8's.

Links

• Jason Bard, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)

Crossrefs

Cf. A020449 - A020472, A199325 - A199329, A385768 - A385800.

Programs

Mathematica

Table[Select[FromDigits/@Tuples[{3,4,8},n],PrimeQ],{n,6}]//Flatten (* Harvey P. Dale, Apr 09 2022 *)

PARI

a(n, list=0, L=[3, 4, 8], reqpal=0)={my(t); for(d=1, 1e9, u=vector(d, i, 10^(d-i))~; forvec(v=vector(d, i, [1+(i==1&!L[1]), #L]), isprime(t=vector(d, i, L[v[i]])*u) || next; reqpal & !isprime(A004086(t)) & next; list & print1(t", "); n--||return(t)))}