OFFSET
1,1
COMMENTS
Similar to the Fibonacci recursion starting with (18, 5), but each new nonprime term is divided by its least prime factor. Sequence enters a loop of length 56 after 26 terms on reaching (119, 109).
LINKS
Wouter Meeussen, Table of n, a(n) for n = 1..82
Richard K. Guy, Tanya Khovanova and Julian Salazar, Conway's subprime Fibonacci sequences, arXiv:1207.5099v1 [math.NT]
MATHEMATICA
see A214674
nxt[{a_, b_}]:=Module[{c=a+b}, {b, If[PrimeQ[c], c, c/FactorInteger[c][[1, 1]]]}]; Transpose[NestList[nxt, {18, 5}, 82]][[1]] (* Harvey P. Dale, Oct 19 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, Jul 29 2012
STATUS
approved