cp's OEIS Frontend

A282234 a(n) = Fibonacci(n) represented in bijective base-3 numeration.

%I A282234 #7 Feb 17 2017 14:51:56
%S A282234 1,1,2,3,12,22,111,133,321,1231,2322,11323,22122,111222,211121,323113,
%T A282234 1311311,3112131,12131212,22321113,112222332,212321222,332321331,
%U A282234 1323113323,3133213131,12311111231,23221332132,113233221133,221232331112,1112313322322
%N A282234 a(n) = Fibonacci(n) represented in bijective base-3 numeration.
%H A282234 Alois P. Heinz, <a href="/A282234/b282234.txt">Table of n, a(n) for n = 1..1000</a>
%H A282234 Wikipedia, <a href="https://en.wikipedia.org/wiki/Bijective_numeration">Bijective numeration</a>
%F A282234 a(n) = A007932(A000045(n)).
%p A282234 a:= proc(n) local b, d, l, m; l:= NULL;
%p A282234       b, m:= 3, combinat[fibonacci](n);
%p A282234       while m>0 do  d:= irem(m, b, 'm');
%p A282234         if d=0 then d:=b; m:=m-1 fi;
%p A282234         l:= d, l
%p A282234       od; parse(cat(l))
%p A282234     end:
%p A282234 seq(a(n), n=0..35);
%Y A282234 Column k=3 of A214679.
%Y A282234 Cf. A000045, A007932.
%K A282234 nonn,base,easy
%O A282234 1,3
%A A282234 _Alois P. Heinz_, Feb 09 2017