OFFSET
0,2
COMMENTS
All base-2 cycles are fixed points, so one more than A164885.
LINKS
MATHEMATICA
A164886[n_] := Length[FixedPointList[FromDigits[Reverse[#], 2] - FromDigits[#, 2] & [Sort[IntegerDigits[#, 2]]] &, n]] - 1;
Array[A164886, 100, 0] (* Paolo Xausa, Feb 05 2026 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph Myers, Aug 29 2009
EXTENSIONS
Cross-references edited by Joseph Myers, Sep 04 2009
STATUS
approved
