OFFSET
0,1
COMMENTS
See A368085 for definition and cross references.
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,0,0,1).
MATHEMATICA
Module[{lpf}, NestList[If[1 < (lpf = FactorInteger[#][[1, 1]]) < 17, #/lpf, #*17 + 1] &, 17, 100]] (* Paolo Xausa, Feb 13 2026 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo Xausa, Dec 12 2023
STATUS
approved
