login
A037898
a(n)=(greatest base 4 digit of n)-(least base 4 digit of n).
2
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, 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, 1, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 1, 1, 2, 3, 1, 0, 1, 2, 2, 1, 1
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
Sequence in context: A301365 A109246 A037890 * A037836 A194522 A165013
KEYWORD
nonn,base
STATUS
approved