A037900 - OEIS

%I #7 Jul 29 2013 16:20:51

%S 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,

%T 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,

%U 4,4,4,2,2,2,3,4,5,2,1,1,2,3,4,2,1,0,1,2,3,3

%N (greatest base 6 digit of n)-(least base 6 digit of n).

%t gl[n_]:=Module[{idn=IntegerDigits[n,6]},Max[idn]-Min[idn]]; Array[gl,100] (* _Harvey P. Dale_, Jul 29 2013 *)

%K nonn,base

%O 1,9

%A _Clark Kimberling_