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,1

Links

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

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 *)

Crossrefs

Cf. A019546, A124674.

Sequence in context: A114420 A349899 A113590 * A024776 A069867 A320585

Adjacent sequences: A124670 A124671 A124672 * A124674 A124675 A124676

Keyword

nonn,base,fini,full

Author

Tanya Khovanova, Dec 24 2006

Status

approved