cp's OEIS Frontend

A282237 a(n) = Fibonacci(n) represented in bijective base-6 numeration.

%I A282237 #6 Feb 17 2017 14:53:17
%S A282237 1,1,2,3,5,12,21,33,54,131,225,356,625,1425,2454,4323,11221,15544,
%T A282237 31165,51153,122362,213555,336361,554356,1335161,2333561,4113162,
%U A282237 6451163,14564365,25455612,44464421,114364433,163313254,322122131,525435425,1251561556
%N A282237 a(n) = Fibonacci(n) represented in bijective base-6 numeration.
%H A282237 Alois P. Heinz, <a href="/A282237/b282237.txt">Table of n, a(n) for n = 1..1000</a>
%H A282237 Wikipedia, <a href="https://en.wikipedia.org/wiki/Bijective_numeration">Bijective numeration</a>
%F A282237 a(n) = A057436(A000045(n)).
%p A282237 a:= proc(n) local b, d, l, m; l:= NULL;
%p A282237       b, m:= 6, combinat[fibonacci](n);
%p A282237       while m>0 do  d:= irem(m, b, 'm');
%p A282237         if d=0 then d:=b; m:=m-1 fi;
%p A282237         l:= d, l
%p A282237       od; parse(cat(l))
%p A282237     end:
%p A282237 seq(a(n), n=0..40);
%Y A282237 Column k=6 of A214679.
%Y A282237 Cf. A000045, A057436.
%K A282237 nonn,base,easy
%O A282237 1,3
%A A282237 _Alois P. Heinz_, Feb 09 2017