|
%I #5 Sep 15 2016 12:14:55
%S 379,397,739,937,3739,3779,3793,3797,7393,7793,7933,7937,7993,9337,
%T 9377,9397,9733,9739,9973,33739,33797,33937,33997,37339,37379,37397,
%U 37799,37993,37997,39373,39397,39733,39779,39799,39937,39979,73379,73939
%N Primes p such that p's set of distinct digits is {3,7,9}.
%H Harvey P. Dale, <a href="/A108385/b108385.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Select[FromDigits/@Select[Tuples[{3,7,9},n],SubsetQ[#,{3,7,9}]&], PrimeQ],{n,3,5}]//Flatten (* _Harvey P. Dale_, Sep 15 2016 *)
%Y 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).
%K base,nonn
%O 1,1
%A _Rick L. Shepherd_, Jun 01 2005
|
