login
A108385
Primes p such that p's set of distinct digits is {3,7,9}.
6
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
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
KEYWORD
base,nonn
AUTHOR
Rick L. Shepherd, Jun 01 2005
STATUS
approved