A020461 Primes that contain digits 3 and 4 only.
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
Offset: 1
Links
- Jason Bard, Table of n, a(n) for n = 1..10000 (first 1000 terms from Vincenzo Librandi)
Crossrefs
Cf. A054356.
Programs
-
Magma
[p: p in PrimesUpTo(43444433) | Set(Intseq(p)) subset [3,4]]; // Bruno Berselli, Jul 27 2012
-
Mathematica
Flatten[Table[Select[FromDigits/@Tuples[{3,4},n],PrimeQ],{n,8}]] (* Vincenzo Librandi, Jul 27 2012 *)