|
%I #6 Feb 28 2019 18:53:31
%S 1,1,1,5,1,9,11,3,1,17,19,5,23,3,13,27,1,33,35,9,39,5,21,43,47,3,25,
%T 51,27,55,57,29,1,65,67,17,71,9,37,75,79,5,41,83,43,87,89,45,95,3,49,
%U 99,51,103,105,53,55,111,113,57,117,59,15,121,1,129,131,33,135,17,69,139,143,9,73,147,75,151,153,77,159,5,81
%N a(n) = A000265(1+A005187(n)).
%H Antti Karttunen, <a href="/A324378/b324378.txt">Table of n, a(n) for n = 0..16384</a>
%H Antti Karttunen, <a href="/A324378/a324378.txt">Data supplement: n, a(n) computed for n = 0..65537</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(n) = A000265(1+A005187(n)).
%F A002487(a(n)) = A324288(n).
%F a(2^n) = 1 for all n >= 0.
%o (PARI)
%o A000265(n) = (n/2^valuation(n, 2));
%o A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
%o A324378(n) = A000265(1+A005187(n));
%Y Cf. A000265, A002487, A005187, A324288, A324377.
%K nonn
%O 0,4
%A _Antti Karttunen_, Feb 28 2019
|
