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