A260270 - OEIS

A260270

Primes that contain only the digits (1, 4, 8).

11, 41, 181, 811, 881, 1181, 1481, 1811, 4111, 4441, 4481, 8111, 11411, 14411, 18181, 18481, 41141, 41411, 44111, 48481, 81181, 84181, 84481, 84811, 88411, 88811, 118411, 141181, 141481, 141811, 144481, 148411, 181141, 184111, 184181, 184441, 411841, 418181

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

OFFSET

1,1

COMMENTS

A020452 and A020456 are subsequences.

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..10000

MATHEMATICA

Select[Prime[Range[4 10^4]], Complement[IntegerDigits[#], {1, 4, 8}]=={} &]

Table[Select[10#+1&/@(FromDigits/@Tuples[{1, 4, 8}, n]), PrimeQ], {n, 5}]// Flatten (* Harvey P. Dale, Jun 08 2019 *)

PROG

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