A383848 In the binary representation of n, rotate left by the number of ones.

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, 7, 30, 15, 31, 1, 6, 10, 28, 18, 44, 52, 57, 34, 13, 21, 58, 37, 27, 43, 55, 3, 14, 22, 60, 38, 29, 45, 59, 7, 30, 46, 61, 15, 62, 31, 63, 1, 6, 10, 28, 18, 44, 52, 120, 34

Offset

0,4

Comments

Equivalently, rotate right by the number of zeros.

Links

Paolo Xausa, Table of n, a(n) for n = 0..16383

Example

a(19) = 28 because 19 = 10011_2, and 10011_2 rotated to the left 3 times gives 11100_2 = 28.

Mathematica

A383848[n_] := FromDigits[RotateLeft[#, Total[#]], 2] & [IntegerDigits[n, 2]];
Array[A383848, 100, 0]

Crossrefs

Cf. A006257, A007088, A383849, A383850 (fixed points).

Sequence in context: A321194 A158822 A353924 * A226132 A121443 A008795

Adjacent sequences: A383845 A383846 A383847 * A383849 A383850 A383851

Keyword

nonn,base,easy

Author

Paolo Xausa, May 13 2025

Status

approved