A214704 Primes that contain only the digits (2, 3, 7).
2, 3, 7, 23, 37, 73, 223, 227, 233, 277, 337, 373, 727, 733, 773, 2237, 2273, 2333, 2377, 2777, 3323, 3373, 3727, 3733, 7237, 7333, 7723, 7727, 22273, 22277, 22727, 22777, 23227, 23327, 23333, 23773, 27277, 27337, 27733, 27737, 27773, 32233, 32237, 32323
Offset: 1
Links
- Jason Bard, Table of n, a(n) for n = 1..10000 (first 1000 terms from Vincenzo Librandi)
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(80000) | Set(Intseq(p)) subset [2,3,7]];
-
Mathematica
Flatten[Table[Select[FromDigits/@Tuples[{2,3,7},n],PrimeQ],{n,6}]]
Comments