login
A037900
(greatest base 6 digit of n)-(least base 6 digit of n).
0
0, 0, 0, 0, 0, 1, 0, 1, 2, 3, 4, 2, 1, 0, 1, 2, 3, 3, 2, 1, 0, 1, 2, 4, 3, 2, 1, 0, 1, 5, 4, 3, 2, 1, 0, 1, 1, 2, 3, 4, 5, 1, 0, 1, 2, 3, 4, 2, 1, 1, 2, 3, 4, 3, 2, 2, 2, 3, 4, 4, 3, 3, 3, 3, 4, 5, 4, 4, 4, 4, 4, 2, 2, 2, 3, 4, 5, 2, 1, 1, 2, 3, 4, 2, 1, 0, 1, 2, 3, 3
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
Sequence in context: A094936 A350111 A037892 * A037838 A165052 A107474
KEYWORD
nonn,base
STATUS
approved