|
%I #10 Apr 07 2022 09:26:13
%S 1,1,1,3,1,5,5,1,3,9,9,3,17,7,1,7,3,33,5,11,9,19,5,21,17,13,3,15,1,11,
%T 41,33,25,19,65,13,37,9,23,3,27,17,35,7,67,11,5,39,11,1,29,49,129,15,
%U 97,65,45,41,33,21,69,25,73,13,37,49,35,7,71,17,51,19,131,15,3,31,5,75,9,43,21,137,27,193,23,81
%N The odd part of A109812(n).
%H Antti Karttunen, <a href="/A351965/b351965.txt">Table of n, a(n) for n = 1..100000</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(n) = A000265(A109812(n)).
%F a(n) = A109812(n) / (2^A351964(n)).
%o (PARI)
%o v109812 = readvec("b109812_to10e5.txt"); \\ Prepared from b-file data with gawk ' { print $2 } '
%o up_to = #v109812;
%o A109812(n) = v109812[n];
%o A000265(n) = (n>>valuation(n,2));
%o A351965(n) = A000265(A109812(n));
%Y Cf. A000265, A109812, A351963, A351964, A352884 (binary weight).
%K nonn,base
%O 1,4
%A _Antti Karttunen_, Apr 06 2022
|
