This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A383849 #10 May 14 2025 14:09:14 %S A383849 0,1,1,3,2,3,5,7,4,6,10,7,3,11,13,15,8,12,20,14,5,22,26,15,6,7,11,23, %T A383849 19,27,29,31,16,24,40,28,9,44,52,30,10,13,21,46,37,54,58,31,12,14,22, %U A383849 15,38,23,27,47,7,39,43,55,51,59,61,63,32,48,80,56,17,88,104,60,18 %N A383849 In the binary representation of n, rotate right by the number of ones. %C A383849 Equivalently, rotate left by the number of zeros. %H A383849 Paolo Xausa, <a href="/A383849/b383849.txt">Table of n, a(n) for n = 0..16383</a> %e A383849 a(19) = 14 because 19 = 10011_2, and 10011_2 rotated to the right 3 times gives 01110_2 = 14. %t A383849 A383849[n_] := FromDigits[RotateRight[#, Total[#]], 2] & [IntegerDigits[n, 2]]; %t A383849 Array[A383849, 100, 0] %Y A383849 Cf. A007088, A038572, A383848, A383850 (fixed points). %K A383849 nonn,base,easy %O A383849 0,4 %A A383849 _Paolo Xausa_, May 13 2025