%I #11 Jul 22 2023 17:38:20
%S 1,100,11,10,1001,1100,111,10000,101,10100,10011,110,11001,11100,1111,
%T 1000,100001,100100,1011,1010,101001,101100,100111,110000,1101,110100,
%U 110011,1110,111001,111100,11111,1000000,10001,1000100,1000011,10010,1001001,1001100
%N a(n) = A007088(A084483(n)).
%H Amiram Eldar, <a href="/A084484/b084484.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A007088(n) iff A000120(n) = A070939(n).
%t s[n_] := s[n] = If[OddQ[n], 2*s[(n - 1)/2] + 1, If[EvenQ[IntegerExponent[n, 2]], n/2, 2*n]]; FromDigits[IntegerDigits[#, 2]]& /@ Array[s, 50] (* _Amiram Eldar_, Jul 22 2023 *)
%Y Cf. A000120, A007088, A023416, A070939, A084483.
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, May 27 2003
|