A386033 - OEIS

A386033

Primes having only {0, 1, 5, 8} as digits.

5, 11, 101, 151, 181, 811, 881, 1051, 1151, 1181, 1511, 1801, 1811, 5011, 5051, 5081, 5101, 5501, 5581, 5801, 5851, 5881, 8011, 8081, 8101, 8111, 8501, 8581, 10111, 10151, 10181, 10501, 11551, 11801, 15101, 15511, 15551, 15581, 15881, 18181, 50051, 50101, 50111

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Jason Bard, Table of n, a(n) for n = 1..10000

Index to entries for primes with digits in a given set

MATHEMATICA

Select[FromDigits /@ Tuples[{0, 1, 5, 8}, n], PrimeQ]

PROG

(Magma) [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [0, 1, 5, 8]];

(Python) print(list(islice(primes_with("0158"), 41))) # uses function/imports in A385776

(PARI) primes_with(, 1, [0, 1, 5, 8]) \\ uses function in A385776