OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..955
Wikipedia, Bijective numeration
EXAMPLE
a(2) = 13_bij9 = 12 = 2 + 10 = 2_bij9 + 11_bij9.
MAPLE
b:= proc(n) option remember; `if`(n=0, [1, 0], add((p->
[p[1], p[2]*9+p[1]*d])(b(n-d)), d=1..min(n, 9)))
end:
g:= proc(n) local d, l, m; m, l:= n, "";
while m>0 do d:= irem(m, 9, 'm');
if d=0 then d:=9; m:= m-1 fi; l:= d, l
od; parse(cat(l))
end:
a:= n-> g(b(n)[2]):
seq(a(n), n=1..23);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Feb 19 2020
STATUS
approved