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