A108385 Primes p such that p's set of distinct digits is {3,7,9}.

379, 397, 739, 937, 3739, 3779, 3793, 3797, 7393, 7793, 7933, 7937, 7993, 9337, 9377, 9397, 9733, 9739, 9973, 33739, 33797, 33937, 33997, 37339, 37379, 37397, 37799, 37993, 37997, 39373, 39397, 39733, 39779, 39799, 39937, 39979, 73379, 73939

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Table[Select[FromDigits/@Select[Tuples[{3, 7, 9}, n], SubsetQ[#, {3, 7, 9}]&], PrimeQ], {n, 3, 5}]//Flatten (* Harvey P. Dale, Sep 15 2016 *)

Crossrefs

Cf. A108382 ({1, 3, 7}), A108383 ({1, 3, 9}), A108384 ({1, 7, 9}), A108386 ({1, 3, 7, 9}), A030096 (Primes whose digits are all odd).

Sequence in context: A328552 A225994 A228554 * A341188 A020369 A142207

Adjacent sequences: A108382 A108383 A108384 * A108386 A108387 A108388

Keyword

base,nonn

Author

Rick L. Shepherd, Jun 01 2005

Status

approved