A260226 Primes having only {3, 5, 8} as digits.

3, 5, 53, 83, 353, 383, 853, 883, 3533, 3583, 3833, 3853, 5333, 8353, 33353, 33533, 35353, 35533, 38333, 38833, 53353, 55333, 83383, 83833, 85333, 85853, 88853, 88883, 333383, 333533, 335383, 335833, 338383, 353333, 353833, 355853, 383533, 383833, 533353

Offset: 1

Author

Vincenzo Librandi, Jul 22 2015

Keywords

• nonn
• easy
• base

Comments

A020462 and A020464 are subsequences.

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..10000
• Index to entries for primes with digits in a given set

Crossrefs

Cf. similar sequences listed in A260223.

Cf. A020462, A020464.

Programs

Magma

[p: p in PrimesUpTo(2*10^6) | Set(Intseq(p)) subset [3, 5, 8]];

Mathematica

Select[Prime[Range[5 10^4]], Complement[IntegerDigits[#], {3, 5, 8}]=={} &]
Select[Flatten[Table[FromDigits/@Tuples[{3,5,8},n],{n,6}]],PrimeQ] (* or  *) Join[{3,5},Select[10#+3&/@Flatten[Table[FromDigits/@Tuples[{3,5,8},n],{n,5}]],PrimeQ]] (* The second program is faster because it recognizes that, except only for 5, each such prime must end in 3. *) (* Harvey P. Dale, Jul 17 2020 *)