OFFSET
1,11
MATHEMATICA
gb8lb8[n_]:=Module[{idn8=IntegerDigits[n, 8]}, Max[idn8]-Min[idn8]]; gb8lb8/@ Range[100] (* Harvey P. Dale, Nov 14 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved