OFFSET
1,12
MATHEMATICA
bnd[n_]:=Module[{idn9=IntegerDigits[n, 9]}, Max[idn9]-Min[idn9]]; Array[bnd, 100] (* Harvey P. Dale, Jul 12 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved