|
%I #6 Nov 17 2018 21:25:18
%S 1,1,2,3,8,5,144,13,34,55
%N Rearrangement of Fibonacci numbers such that sum of two consecutive terms is a prime.
%C a(11) = F(67671), the 67671st Fibonacci number. This has over 14000 decimal digits and is too large to display here. - _Ryan Propper_, Jun 16 2006
%t l = {1, 1}; Do[k = 1; While[MemberQ[l, Fibonacci[k]] || !PrimeQ[Last[l] + Fibonacci[k]], k++ ]; AppendTo[l, Fibonacci[k]]; Print[l], {n, 9}] (* _Ryan Propper_, Jun 16 2006 *)
%Y Cf. A073655, A073657.
%K nonn
%O 1,3
%A _Amarnath Murthy_, Aug 10 2002
|
