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

Author

Rick L. Shepherd, Jun 01 2005

Keywords

• base
• nonn

Links

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

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

Programs

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