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