cp's OEIS Frontend

A282238 a(n) = Fibonacci(n) represented in bijective base-7 numeration.

%I A282238 #6 Feb 17 2017 14:54:07
%S A282238 1,1,2,3,5,11,16,27,46,76,155,264,452,746,1531,2577,4441,7351,15122,
%T A282238 25473,43625,72431,146356,252117,431476,713626,1445435,2462364,
%U A282238 4241132,6733526,14274661,24341517,41646511,66321331,141271142,237622473,412223645,653146451
%N A282238 a(n) = Fibonacci(n) represented in bijective base-7 numeration.
%H A282238 Alois P. Heinz, <a href="/A282238/b282238.txt">Table of n, a(n) for n = 1..1000</a>
%H A282238 Wikipedia, <a href="https://en.wikipedia.org/wiki/Bijective_numeration">Bijective numeration</a>
%F A282238 a(n) = A214677(A000045(n)).
%p A282238 a:= proc(n) local b, d, l, m; l:= NULL;
%p A282238       b, m:= 7, combinat[fibonacci](n);
%p A282238       while m>0 do  d:= irem(m, b, 'm');
%p A282238         if d=0 then d:=b; m:=m-1 fi;
%p A282238         l:= d, l
%p A282238       od; parse(cat(l))
%p A282238     end:
%p A282238 seq(a(n), n=0..40);
%Y A282238 Column k=7 of A214679.
%Y A282238 Cf. A000045, A214677.
%K A282238 nonn,base,easy
%O A282238 1,3
%A A282238 _Alois P. Heinz_, Feb 09 2017