|
%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_
|
