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 A383848 #14 May 14 2025 14:09:07 %S A383848 0,1,1,3,1,6,3,7,1,6,10,13,3,14,7,15,1,6,10,28,18,13,21,27,3,14,22,29, %T A383848 7,30,15,31,1,6,10,28,18,44,52,57,34,13,21,58,37,27,43,55,3,14,22,60, %U A383848 38,29,45,59,7,30,46,61,15,62,31,63,1,6,10,28,18,44,52,120,34 %N A383848 In the binary representation of n, rotate left by the number of ones. %C A383848 Equivalently, rotate right by the number of zeros. %H A383848 Paolo Xausa, <a href="/A383848/b383848.txt">Table of n, a(n) for n = 0..16383</a> %e A383848 a(19) = 28 because 19 = 10011_2, and 10011_2 rotated to the left 3 times gives 11100_2 = 28. %t A383848 A383848[n_] := FromDigits[RotateLeft[#, Total[#]], 2] & [IntegerDigits[n, 2]]; %t A383848 Array[A383848,100,0] %Y A383848 Cf. A006257, A007088, A383849, A383850 (fixed points). %K A383848 nonn,base,easy %O A383848 0,4 %A A383848 _Paolo Xausa_, May 13 2025