OFFSET
1,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
Wikipedia, Bijective numeration
MAPLE
a:= proc(n) local b, d, l, m; l:= NULL;
b, m:= 4, combinat[fibonacci](n);
while m>0 do d:= irem(m, b, 'm');
if d=0 then d:=b; m:=m-1 fi;
l:= d, l
od; parse(cat(l))
end:
seq(a(n), n=0..35);
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Alois P. Heinz, Feb 09 2017
STATUS
approved