A383850 Fixed points of A383848 and A383849.

0, 1, 3, 7, 10, 15, 31, 63, 127, 153, 170, 204, 255, 292, 365, 438, 511, 1023, 2047, 2275, 2405, 2470, 2665, 2730, 2860, 3185, 3250, 3380, 3640, 4095, 8191, 16383, 32767, 34695, 34952, 35723, 36237, 36494, 37779, 38293, 38550, 39321, 39578, 40092, 41891, 42405, 42662, 43433, 43690

Offset: 1

Author

Paolo Xausa, May 13 2025

Keywords

• nonn
• base

Crossrefs

Cf. A383848, A383849.

A000225 is a subsequence.

Programs

Mathematica

A383850Q[k_] := # == RotateLeft[#, Total[#]]& [IntegerDigits[k, 2]];
Select[Range[0, 50000], A383850Q]