OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
F:= proc(n) local L;
L:= convert(n, base, 9);
if L[1] = 0 then return 0 fi;
add(min(L[i], L[-i])*9^(i-1), i=1..nops(L))
end proc:
map(F, [$0..100]); # Robert Israel, Jan 13 2020
CROSSREFS
KEYWORD
AUTHOR
N. J. A. Sloane, Dec 09 2015
STATUS
approved