%I #7 Apr 09 2017 16:58:03
%S 139,193,1193,1319,1399,1913,1931,1933,1993,3119,3191,3319,3391,3911,
%T 3919,3931,9133,9311,9319,9391,9931,11393,11399,11933,11939,13339,
%U 13399,13913,13931,13933,13999,19139,19319,19333,19391,19913,19993,31139
%N Primes p such that p's set of distinct digits is {1,3,9}.
%H Harvey P. Dale, <a href="/A108383/b108383.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%Y 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).
%K base,nonn
%O 1,1
%A _Rick L. Shepherd_, Jun 01 2005
|