OFFSET
1,5
COMMENTS
After 133 steps, enters a cycle of length 14.
LINKS
Greg Back and Mihai Caragiu, The Greatest Prime Factor and Recurrent Sequences, Fibonacci Quart. 48 (2010), no. 4, 358-362.
MATHEMATICA
nxt[{a_, b_, c_, d_}]:={b, c, d, FactorInteger[a+b+c+d][[-1, 1]]}; Transpose[ NestList[ nxt, {1, 1, 1, 1}, 120]][[1]] (* Harvey P. Dale, Sep 24 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Dec 18 2010
STATUS
approved