OFFSET
1,2
MATHEMATICA
nten5Q[n_]:=Module[{c=Select[DigitCount[n, 5], #>0&]}, Length[c] == Length[ Union[ c]]]; Select[Range[150], nten5Q] (* Harvey P. Dale, Mar 08 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved