|
%I #6 May 29 2018 20:40:29
%S 0,1,0,2,2,3,0,0,6,4,4,1,2,7,4,5,14,3,0,4,10,0,0,6,6,12,12,2,10,8,8,5,
%T 30,4,4,9,2,15,12,0,22,11,8,9,2,11,8,1,14,19,16,1,26,3,0,8,22,3,0,12,
%U 18,8,8,1,62,3,0,20,10,16,16,9,6,28,28,1,26,7,4,13,46,20,20,2,18,16,16,13,6,20,20,10,18
%N Binary encoding of 1-digits in ternary representation of A254103(n).
%H Antti Karttunen, <a href="/A304760/b304760.txt">Table of n, a(n) for n = 0..16384</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(n) = A289813(A254103(n)).
%o (PARI)
%o A254103(n) = if(!n,n,if(!(n%2),(3*A254103(n/2))-1,(3*(1+A254103((n-1)/2)))\2));
%o A289813(n) = { my (d=digits(n, 3)); from digits(vector(#d, i, if (d[i]==1, 1, 0)), 2); } \\ From A289813
%o A304760(n) = A289813(A254103(n));
%Y Cf. A254103, A289813, A304740 (rgs-transform).
%Y Cf. also A291760.
%K nonn,base
%O 0,4
%A _Antti Karttunen_, May 29 2018
|
