%I #31 Jan 16 2024 08:31:24
%S 1,1,3,1,3,6,7,1,3,6,7,12,13,14,15,1,3,6,7,12,13,14,15,24,25,26,27,28,
%T 29,30,31,1,3,6,7,12,13,14,15,24,25,26,27,28,29,30,31,48,49,50,51,52,
%U 53,54,55,56,57,58,59,60,61,62,63,1
%N Rotate n one binary digit to the left, drop leading zeros, then rotate one binary digit to the right.
%C Sequence contains ever-longer copies of A004760. - _Ralf Stephan_, Sep 16 2003
%H Paolo Xausa, <a href="/A053642/b053642.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A038572(A006257(n)).
%F a(n) = n if 3*2^(k-1) <= n < 2^(k+1);
%F a(n) = a(n - 2^(k-1)) if 2^k <= n < 3*2^(k-1).
%F a(2n) = 2a(n) - [a(n)==1], a(2n+1) = 2a(n) + 1. - _Ralf Stephan_, Sep 16 2003
%e a(22)=14 because starting with 10110 the left rotation produces 01101 written as 1101 (i.e., 13) and the right rotation produces 1110 (i.e., 14).
%t rtt[f_, n_] := FromDigits[f[IntegerDigits[n, 2]], 2];
%t Array[rtt[RotateRight, rtt[RotateLeft, #]]&, 100] (* _Paolo Xausa_, Jan 16 2024 *)
%o (PARI) a(n) = n-=1<<logint(n,2); n + 1<<if(n,logint(n,2)+1); \\ _Kevin Ryde_, Jan 13 2024
%Y Cf. A004760, A006257, A038572.
%Y Cf. A053641 (right then left).
%K nonn,base,easy
%O 1,3
%A _Henry Bottomley_, Mar 22 2000