OFFSET
1,4
COMMENTS
Has period 69, starting with the fourth term: 3, 5, 3, 11, 19, 3, 3, 5, 11, ...
MATHEMATICA
nxt[{a_, b_, c_}]:={b, c, FactorInteger[a+b+c][[1, 1]]}; Transpose[ NestList[ nxt, {1, 1, 1}, 100]][[1]] (* Harvey P. Dale, Aug 19 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 16 2010
STATUS
approved