|
|
A020461
|
|
Primes that contain digits 3 and 4 only.
|
|
13
|
|
|
3, 43, 433, 443, 3343, 3433, 33343, 333433, 334333, 343333, 343433, 444343, 444443, 3333433, 3343343, 3343433, 3344333, 3344443, 3433333, 3434443, 3443443, 3444443, 4344443, 4433333, 4434343, 4443433, 34333333, 34434343, 34444343, 43444433
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Flatten[Table[Select[FromDigits/@Tuples[{3, 4}, n], PrimeQ], {n, 8}]] (* Vincenzo Librandi, Jul 27 2012 *)
|
|
PROG
|
(Magma) [p: p in PrimesUpTo(43444433) | Set(Intseq(p)) subset [3, 4]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|