login
A108383
Primes p such that p's set of distinct digits is {1,3,9}.
6
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,1
LINKS
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 *)
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).
Sequence in context: A095649 A016067 A142524 * A027867 A140019 A107206
KEYWORD
base,nonn
AUTHOR
Rick L. Shepherd, Jun 01 2005
STATUS
approved