A037902 - OEIS

%I #7 Nov 14 2014 17:53:30

%S 0,0,0,0,0,0,0,1,0,1,2,3,4,5,6,2,1,0,1,2,3,4,5,3,2,1,0,1,2,3,4,4,3,2,

%T 1,0,1,2,3,5,4,3,2,1,0,1,2,6,5,4,3,2,1,0,1,7,6,5,4,3,2,1,0,1,1,2,3,4,

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

%N a(n)=(greatest base 8 digit of n)-(least base 8 digit of n).

%t gb8lb8[n_]:=Module[{idn8=IntegerDigits[n,8]},Max[idn8]-Min[idn8]]; gb8lb8/@ Range[100] (* _Harvey P. Dale_, Nov 14 2014 *)

%K nonn,base

%O 1,11

%A _Clark Kimberling_