OFFSET
1,7
MAPLE
A037898 := proc(n)
local dgs ;
dgs := convert(n, base, 4);
max(op(dgs))-min(op(dgs)) ;
end proc: # R. J. Mathar, Oct 19 2015
MATHEMATICA
gb4[n_]:=Module[{idn4=IntegerDigits[n, 4]}, Max[idn4]-Min[idn4]]; Array[ gb4, 120] (* Harvey P. Dale, Feb 19 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved