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

139, 193, 1193, 1319, 1399, 1913, 1931, 1933, 1993, 3119, 3191, 3319, 3391, 3911, 3919, 3931, 9133, 9311, 9319, 9391, 9931, 11393, 11399, 11933, 11939, 13339, 13399, 13913, 13931, 13933, 13999, 19139, 19319, 19333, 19391, 19913, 19993, 31139

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}), A108384 ({1, 7, 9}), A108385 ({3, 7, 9}), A108386 ({1, 3, 7, 9}), A030096 (Primes whose digits are all odd).

Programs

Mathematica

Select[(Table[FromDigits/@Tuples[{1,3,9},n],{n,3,5}]//Flatten),PrimeQ[#] && Min[ DigitCount[#,10,{1,3,9}]]>0&] (* Harvey P. Dale, Apr 09 2017 *)