%I #8 Jun 02 2024 10:31:35
%S 2,3,5,7,23,25,27,32,35,37,52,53,57,72,73,75,235,237,253,257,273,275,
%T 325,327,352,357,372,375,523,527,532,537,572,573,723,725,732,735,752,
%U 753,2357,2375,2537,2573,2735,2753,3257,3275,3527,3572,3725,3752,5237
%N Numbers with distinct prime digits.
%H Jinyuan Wang, <a href="/A124673/b124673.txt">Table of n, a(n) for n = 1..64</a>
%t Select[Range[10000], Length[IntegerDigits[ # ]] == Length[Union[IntegerDigits[ # ]]] && Complement[IntegerDigits[ # ], {2, 3, 5, 7}] == {} &]
%t Rest[FromDigits/@Flatten[Permutations/@Subsets[{2,3,5,7}],1]]//Sort (* _Harvey P. Dale_, Jun 02 2024 *)
%Y Cf. A019546, A124674.
%K nonn,base,fini,full
%O 1,1
%A _Tanya Khovanova_, Dec 24 2006
|