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
KEYWORD
nonn,base,fini,full
AUTHOR
Tanya Khovanova, Dec 24 2006
STATUS
approved