editing
approved
editing
approved
Harvey P. Dale, <a href="/A199348/b199348.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved
Table[Select[FromDigits/@Tuples[{3, 4, 8}, n], PrimeQ], {n, 6}]//Flatten (* Harvey P. Dale, Apr 09 2022 *)
approved
editing
_M. F. Hasler (oeis2011-removeThis(AT)hasler.fr), _, Nov 05 2011
editing
approved
allocated for M. F. Hasler
Primes having only the (decimal) digits 3, 4 and 8.
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
1,1
All terms end in 3 and those > 3 never have the same number of 4's and 8's.
(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)))}
allocated
nonn,base,changed
M. F. Hasler (oeis2011-removeThis(AT)hasler.fr), Nov 05 2011
approved
editing
allocated for M. F. Hasler
allocated
approved