A124673 Numbers with distinct prime digits.

2, 3, 5, 7, 23, 25, 27, 32, 35, 37, 52, 53, 57, 72, 73, 75, 235, 237, 253, 257, 273, 275, 325, 327, 352, 357, 372, 375, 523, 527, 532, 537, 572, 573, 723, 725, 732, 735, 752, 753, 2357, 2375, 2537, 2573, 2735, 2753, 3257, 3275, 3527, 3572, 3725, 3752, 5237

Offset: 1

Author

Tanya Khovanova, Dec 24 2006

Keywords

• nonn
• base
• fini
• full

Links

• Jinyuan Wang, Table of n, a(n) for n = 1..64

Crossrefs

Cf. A019546, A124674.

Programs

Mathematica

Select[Range[10000], Length[IntegerDigits[ # ]] == Length[Union[IntegerDigits[ # ]]] && Complement[IntegerDigits[ # ], {2, 3, 5, 7}] == {} &]
Rest[FromDigits/@Flatten[Permutations/@Subsets[{2,3,5,7}],1]]//Sort (* Harvey P. Dale, Jun 02 2024 *)