A037898 - OEIS

%I #8 Feb 19 2020 13:42:40

%S 0,0,0,1,0,1,2,2,1,0,1,3,2,1,0,1,1,2,3,1,0,1,2,2,1,1,2,3,2,2,2,2,2,2,

%T 3,2,1,1,2,2,1,0,1,3,2,1,1,3,3,3,3,3,2,2,2,3,2,1,1,3,2,1,0,1,1,2,3,1,

%U 1,2,3,2,2,2,3,3,3,3,3,1,1,2,3,1,0,1,2,2,1,1

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

%p A037898 := proc(n)

%p     local dgs ;

%p     dgs := convert(n,base,4);

%p     max(op(dgs))-min(op(dgs)) ;

%p end proc: # _R. J. Mathar_, Oct 19 2015

%t gb4[n_]:=Module[{idn4=IntegerDigits[n,4]},Max[idn4]-Min[idn4]]; Array[ gb4,120] (* _Harvey P. Dale_, Feb 19 2020 *)

%K nonn,base

%O 1,7

%A _Clark Kimberling_