A383849 In the binary representation of n, rotate right by the number of ones.

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, 19, 27, 29, 31, 16, 24, 40, 28, 9, 44, 52, 30, 10, 13, 21, 46, 37, 54, 58, 31, 12, 14, 22, 15, 38, 23, 27, 47, 7, 39, 43, 55, 51, 59, 61, 63, 32, 48, 80, 56, 17, 88, 104, 60, 18

Offset: 0

Author

Paolo Xausa, May 13 2025

Keywords

• nonn
• base
• easy

Comments

Equivalently, rotate left by the number of zeros.

Examples

			a(19) = 14 because 19 = 10011_2, and 10011_2 rotated to the right 3 times gives 01110_2 = 14.
		

Links

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

Crossrefs

Cf. A007088, A038572, A383848, A383850 (fixed points).

Programs

Mathematica

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