|
%I #5 Aug 28 2016 10:48:41
%S 1,2,5,8,34,89,377,610,1597,514229,9227465,63245986,1134903170,
%T 20365011074,956722026041,117669030460994,5527939700884757,
%U 70492524767089125814114,44225333398004061429732838340729878012027363723832270745251370289
%N Second-to-smallest of four consecutive Fibonacci numbers such that sum of four consecutive Fibonacci numbers is prime number.
%C 1+1+2+3=7, 1+2+3+5=11, 3+5+8+13=29, 5+8+13+21=47, 21+34+55+89=199,...
%H Harvey P. Dale, <a href="/A153863/b153863.txt">Table of n, a(n) for n = 1..27</a>
%t a=0;b=1;c=1;lst={};Do[d=Fibonacci[n];p=a+b+c+d;If[PrimeQ[p],AppendTo[lst,b]];a=b;b=c;c=d,{n,3,6!}];lst
%t Select[Partition[Fibonacci[Range[200]],4,1],PrimeQ[Total[#]]&][[All,2]] (* _Harvey P. Dale_, Aug 28 2016 *)
%Y Cf. A000045, A001906, A000071, A001605, A153862
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 03 2009
%E One more term from _Harvey P. Dale_, Aug 28 2016
|
