This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A057687 #17 Dec 12 2023 15:55:16 %S A057687 29,842,421,12210,6105,2035,407,37,1074,537,179,5192,2596,1298,649,59, %T A057687 1712,856,428,214,107,3104,1552,776,388,194,97,2814,1407,469,67,1944, %U A057687 972,486,243,81,27,9,3,1,30,15,5,1,30,15,5,1,30,15 %N A057687 Trajectory of 29 under the `29x+1' map. %C A057687 See A057684 for definition. %H A057687 <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,1). %t A057687 Px1[p_,n_]:=Catch[For[i=1,i<PrimePi[p],i++,If[Divisible[n,Prime[i]],Throw[n/Prime[i]]]];p*n+1]; %t A057687 NestList[Px1[29,#]&,29,100] (* _Paolo Xausa_, Dec 10 2023 *) %Y A057687 Cf. A057446, A057216, A057522, A057534, A057614. See also A033478, A057688, A057684, A057685, A057686, A057687, A057689, A057690, A057691. %K A057687 nonn,easy %O A057687 0,1 %A A057687 _N. J. A. Sloane_, Oct 20 2000