cp's OEIS Frontend

A282235 a(n) = Fibonacci(n) represented in bijective base-4 numeration.

%I A282235 #6 Feb 17 2017 14:52:31
%S A282235 1,1,2,3,11,14,31,111,142,313,1121,1434,3221,11321,21142,33123,114331,
%T A282235 214114,341111,1221231,2222342,3444233,12333241,22444134,41443441,
%U A282235 131214241,233324342,431211243,1331142311,2422414214,4414223131,13443243411,31124133142
%N A282235 a(n) = Fibonacci(n) represented in bijective base-4 numeration.
%H A282235 Alois P. Heinz, <a href="/A282235/b282235.txt">Table of n, a(n) for n = 1..1000</a>
%H A282235 Wikipedia, <a href="https://en.wikipedia.org/wiki/Bijective_numeration">Bijective numeration</a>
%F A282235 a(n) = A084544(A000045(n)).
%p A282235 a:= proc(n) local b, d, l, m; l:= NULL;
%p A282235       b, m:= 4, combinat[fibonacci](n);
%p A282235       while m>0 do  d:= irem(m, b, 'm');
%p A282235         if d=0 then d:=b; m:=m-1 fi;
%p A282235         l:= d, l
%p A282235       od; parse(cat(l))
%p A282235     end:
%p A282235 seq(a(n), n=0..35);
%Y A282235 Column k=4 of A214679.
%Y A282235 Cf. A000045, A084544.
%K A282235 nonn,base,easy
%O A282235 1,3
%A A282235 _Alois P. Heinz_, Feb 09 2017