OFFSET
0,3
COMMENTS
All base-2 cycles are fixed points, so one less than A164886.
LINKS
MATHEMATICA
A164885[n_] := Length[FixedPointList[FromDigits[Reverse[#], 2] - FromDigits[#, 2] & [Sort[IntegerDigits[#, 2]]] &, n]] - 2;
Array[A164885, 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
