A037900 (greatest base 6 digit of n)-(least base 6 digit of n).

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

Links

Table of n, a(n) for n=1..90.

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

Adjacent sequences: A037897 A037898 A037899 * A037901 A037902 A037903

Keyword

nonn,base

Author

Clark Kimberling

Status

approved