|
| |
|
|
A199340
|
|
Primes having only the (decimal) digits 0, 3 and 4.
|
|
0
|
|
|
|
3, 43, 433, 443, 3343, 3433, 4003, 30403, 33343, 33403, 34033, 34303, 34403, 40343, 40433, 43003, 43403, 300043, 300343, 304033, 304303, 304433, 330433, 333433, 334043, 334333, 334403, 343303, 343333, 343433, 400033, 403003, 403043, 403433, 430303, 430333, 430343, 430433, 433003, 433033, 434303, 440303, 440333, 440443, 444043
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
All terms end in '3'. This could be used to speed up the given program.
|
|
|
LINKS
|
Table of n, a(n) for n=1..45.
|
|
|
PROG
|
(PARI) a(n, list=0, L=[0, 3, 4], 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)))}
|
|
|
CROSSREFS
|
Cf. A020449 - A020472, A199325 - A199329.
Cf. A058429, A058430.
Sequence in context: A199349 A197609 A199346 * A020461 A036940 A099664
Adjacent sequences: A199337 A199338 A199339 * A199341 A199342 A199343
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
M. F. Hasler, Nov 05 2011
|
|
|
STATUS
|
approved
|
| |
|
|
