|
%I #16 Jan 16 2021 06:38:25
%S 1,0,2,2,3,0,0,6,7,4,1,2,4,4,0,14,5,12,6,10,9,0,4,6,1,0,4,10,5,8,1,30,
%T 8,8,14,26,2,8,13,22,3,16,0,2,17,12,8,14,1,0,10,2,10,0,9,22,3,8,11,18,
%U 9,0,18,62,0,20,12,18,1,24,13,54,15,0,28,18,0,24,12,46,37,4,8,34,7,4,0,6,11,32,23,26,22,0
%N Binary encoding of 1-digits in ternary representation of A048673(n).
%C Compare the logarithmic scatterplot to those of A291759, A292250 and A304760.
%H Antti Karttunen, <a href="/A304759/b304759.txt">Table of n, a(n) for n = 1..16383</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(n) = A289813(A048673(n)).
%o (PARI)
%o A003961(n) = my(f = factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); \\ From A003961
%o A048673(n) = (A003961(n)+1)/2;
%o A289813(n) = { my (d=digits(n, 3)); from digits(vector(#d, i, if (d[i]==1, 1, 0)), 2); } \\ From A289813
%o A304759(n) = A289813(A048673(n));
%Y Cf. A048673, A289813, A304758 (rgs-transform), A340381.
%Y Cf. also A291759, A292250, A304760, A305295.
%Y Cf. A340376 (positions of zeros), A340378 (binary weight).
%K nonn,look,base
%O 1,3
%A _Antti Karttunen_, May 30 2018
|
