%I #7 May 05 2024 21:37:49

%S 0,2,0,2,0,4,2,2,0,2,0,4,2,3,2,2,0,2,0,2,0,6,4,4,2,2,2,3,2,3,2,2,0,2,

%T 0,2,0,4,2,2,0,2,0,6,4,4,4,4,2,2,2,2,2,5,3,3,2,2,2,3,2,3,2,2,0,2,0,2,

%U 0,4,2,2,0,2,0,4,2,3,2,2,0,2,0,2,0,8,6,6,4,4,4,4,4,4,4,4,2,2,2,2,2,4,2,2,2,2

%N a(n) = A050602(n, 2n+1).

%H Antti Karttunen, <a href="/A372554/b372554.txt">Table of n, a(n) for n = 0..100000</a>

%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>

%o (PARI)

%o A050602sq(x,y) = if(!bitand(x,y), 0, 1+A050602sq(bitxor(x,y),2*bitand(x,y)));

%o A372554(n) = A050602sq(n,n+n+1);

%Y Cf. A022340 (positions of 0's), A050602.

%Y Cf. A002450 (seems to give the positions of records).

%Y Cf. also A329603.

%K nonn,new

%O 0,2

%A _Antti Karttunen_, May 05 2024