A351965 - OEIS

%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