By the way, if we iterate n -> A098550(n), I have yet to find a longer loop than (1470, 2031, 1882, 1742, 2145, 1986, 2353, 5455, 6241, 2917, 2706, 2516, 2334, 2164, 2008, 1862, 2259, 2737, 2542, 3105, 3749, 3480, 4155, 3868, 3602, 4287, 1997, 1852, 1716, 1592).