|
%I #3 Mar 31 2012 12:38:26
%S 2,5,31,607,
%T 628580612875886694881648328579603114508131388106874704297602636435532791990880832689119,
%U 7531436383873795315009506236096188648036856522778750817396763797198414070984881727501992372613765176393353441439
%N Primes of the form Fibonacci(k)-3.
%C Contains the numbers A000045(k)-3 for k = 5, 6, 9, 15, 417, 537, 2085,...
%C which equal A000040(j) for j = 1, 3, 11, 111,...
%t Clear[lst,a,f,n,p]; a=3;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst
%Y Cf. A163851.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 05 2009
%E Indices into Fibonacci and prime sequences added by _R. J. Mathar_, Aug 18 2009
|
