%I #14 Oct 20 2022 23:59:39
%S 18,5,23,14,37,17,27,22,7,29,18,47,13,30,43,73,58,131,63,97,80,59,139,
%T 99,119,109,114,223,337,280,617,299,458,757,405,581,493,537,515,526,
%U 347,291,319,305,312,617,929
%N Conway's subprime Fibonacci sequence starting with (18, 5).
%C 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).
%H Wouter Meeussen, <a href="/A214893/b214893.txt">Table of n, a(n) for n = 1..82</a>
%H Richard K. Guy, Tanya Khovanova and Julian Salazar, <a href="http://arxiv.org/abs/1207.5099">Conway's subprime Fibonacci sequences</a>, arXiv:1207.5099v1 [math.NT]
%t see A214674
%t 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 *)
%Y Cf. A000045, A020639, A175723, A214551, A014682, A214674, A214892-A214898.
%K nonn
%O 1,1
%A _Wouter Meeussen_, Jul 29 2012
|