MaximalBy[Table[{i, Length[HailstoneFP[i]]}, {i, 100000}], Last]