A057687 Trajectory of 29 under the `29x+1' map.

29, 842, 421, 12210, 6105, 2035, 407, 37, 1074, 537, 179, 5192, 2596, 1298, 649, 59, 1712, 856, 428, 214, 107, 3104, 1552, 776, 388, 194, 97, 2814, 1407, 469, 67, 1944, 972, 486, 243, 81, 27, 9, 3, 1, 30, 15, 5, 1, 30, 15, 5, 1, 30, 15

Offset

0,1

Comments

See A057684 for definition.

Links

Table of n, a(n) for n=0..49.

Index entries for linear recurrences with constant coefficients, signature (0,0,0,1).

Mathematica

Px1[p_, n_]:=Catch[For[i=1, i<PrimePi[p], i++, If[Divisible[n, Prime[i]], Throw[n/Prime[i]]]]; p*n+1];
NestList[Px1[29, #]&, 29, 100] (* Paolo Xausa, Dec 10 2023 *)

Crossrefs

Cf. A057446, A057216, A057522, A057534, A057614. See also A033478, A057688, A057684, A057685, A057686, A057687, A057689, A057690, A057691.

Sequence in context: A262337 A009973 A278475 * A049667 A042626 A157877

Adjacent sequences: A057684 A057685 A057686 * A057688 A057689 A057690

Keyword

nonn,easy

Author

N. J. A. Sloane, Oct 20 2000

Status

approved