OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= proc(n, j) local L, m;
L:= convert(n, base, 4);
m:= nops(L);
j*add(L[i+1]*4^(2*i), i=0..m-1)
end proc:
seq(seq(seq(f(n, j), n=4^k..4^(k+1)-1), j=[1, 4]), k=0..3)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Definition corrected by Robert Israel, Nov 15 2020
STATUS
approved