cp's OEIS Frontend

A318922 Apply Lenormand's transformation k -> A318921(k) to the Fibonacci numbers.

%I A318922 #9 Sep 08 2018 15:39:20
%S A318922 0,0,0,0,1,0,0,1,0,0,7,2,0,6,14,4,31,39,4,0,11,8,7,1020,32,0,228,1016,
%T A318922 109,249,160,7,112,3708,3099,340,13208,12526,192,3596,8957,999,
%U A318922 4178060,746,879,13296,15855,16920,29184,227952,124264,16192,984121,77442,1952,16359,4967,1044
%N A318922 Apply Lenormand's transformation k -> A318921(k) to the Fibonacci numbers.
%H A318922 Alois P. Heinz, <a href="/A318922/b318922.txt">Table of n, a(n) for n = 0..9396</a>
%p A318922 a:= proc(n) local d, i, l, m, r;
%p A318922       i, r, l, m:= 0$2, 2, (<<0|1>, <1|1>>^n)[1, 2];
%p A318922       while m>0 do d:= irem(m, 2, 'm');
%p A318922         if d=l then r:= r+d*2^i; i:=i+1 fi; l:= d
%p A318922       od; r
%p A318922     end:
%p A318922 seq(a(n), n=0..100);  # _Alois P. Heinz_, Sep 08 2018
%Y A318922 Cf. A000045, A318921.
%K A318922 nonn,base
%O A318922 0,11
%A A318922 _N. J. A. Sloane_, Sep 08 2018