A260226 Primes that contain only the digits (3, 5, 8).

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,1

Comments

A020462 and A020464 are subsequences.

Links

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

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 *)

Prog

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

Crossrefs

Cf. similar sequences listed in A260223.

Cf. A020462, A020464.

Sequence in context: A219506 A171775 A260227 * A101149 A056260 A213052

Adjacent sequences: A260223 A260224 A260225 * A260227 A260228 A260229

Keyword

nonn,easy,base

Author

Vincenzo Librandi, Jul 22 2015

Status

approved