close
login
A368115
Trajectory of 17 under the '17x+1' map.
4
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.
MATHEMATICA
Module[{lpf}, NestList[If[1 < (lpf = FactorInteger[#][[1, 1]]) < 17, #/lpf, #*17 + 1] &, 17, 100]] (* Paolo Xausa, Feb 13 2026 *)
CROSSREFS
Cf. A368085.
Sequence in context: A128358 A015969 A001026 * A178765 A041546 A186000
KEYWORD
nonn,easy
AUTHOR
Paolo Xausa, Dec 12 2023
STATUS
approved