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,3

Links

Table of n, a(n) for n=1..49.

Mathematica

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

Crossrefs

Cf. A383848, A383849.

A000225 is a subsequence.

Sequence in context: A281642 A353427 A121016 * A246701 A151733 A088636

Adjacent sequences: A383847 A383848 A383849 * A383851 A383852 A383853

Keyword

nonn,base

Author

Paolo Xausa, May 13 2025

Status

approved