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, 5);
m:= nops(L);
j*add(L[i+1]*7^(2*i), i=0..m-1)
end proc: seq(seq(seq(f(n, j), n=7^k..7^(k+1)-1), j=[1, 7]), k=0..2); # Robert Israel, Nov 16 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Definition corrected by Robert Israel, Nov 16 2020
STATUS
approved