A385799 Primes having only {6, 7, 8} as digits.
7, 67, 677, 787, 877, 887, 7687, 7867, 7877, 8677, 8867, 8887, 66877, 67777, 67867, 68687, 68767, 68777, 76667, 76777, 77687, 77867, 78787, 78877, 78887, 86677, 86767, 87767, 87877, 87887, 88667, 88867, 666667, 667687, 667867, 668677, 668687, 668867, 677687, 677767
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [6, 7, 8]];
-
Mathematica
Flatten[Table[Select[FromDigits /@ Tuples[{6, 7, 8}, n], PrimeQ], {n, 7}]]
-
PARI
primes_with(, 1, [6, 7, 8]) \\ uses function in A385776
-
Python
print(list(islice(primes_with("678"), 41))) # uses function/imports in A385776