A368115 Trajectory of 17 under the '17x+1' map.

17, 290, 145, 29, 494, 247, 19, 324, 162, 81, 27, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1, 18, 9, 3, 1

Offset

0,1

Comments

See A368085 for definition and cross references.

Links

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

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[17, #]&, 17, 100]

Crossrefs

Cf. A368085.

Sequence in context: A128358 A015969 A001026 * A178765 A041546 A186000

Adjacent sequences: A368112 A368113 A368114 * A368116 A368117 A368118

Keyword

nonn,easy

Author

Paolo Xausa, Dec 12 2023

Status

approved