OFFSET
1,1
COMMENTS
Similar to the Fibonacci recursion starting with (4, 1), but each new nonprime term is divided by its least prime factor. Sequence enters a loop of length 136 after 8 terms on reaching (11, 9).
LINKS
Wouter Meeussen, Table of n, a(n) for n = 1..144
Richard K. Guy, Tanya Khovanova and Julian Salazar, Conway's subprime Fibonacci sequences, arXiv:1207.5099 [math.NT], 2012-2014.
MATHEMATICA
(* see A214674 *)
a[1] = 4; a[2] = 1; a[n_] := a[n] = If[an = a[n-2]+a[n-1]; PrimeQ[an], an, an/FactorInteger[an][[1, 1]]]; Array[a, 80] (* Jean-François Alcover, Nov 17 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Wouter Meeussen, Jul 29 2012
STATUS
approved