login
Primes of the form Fibonacci(k)-2.
6

%I #5 Jan 12 2019 16:49:42

%S 3,11,19,53,6763,354224848179261915073,6356306993006846248181,

%T 6549923758702735390139183573072808204317151158828986996794832713116199613609647330495585293499629115294769,

%U 131000268055609921839337880403168874871518195097038587116150308718344497444830568622793920406537331453336153249817445002421

%N Primes of the form Fibonacci(k)-2.

%C Contains the numbers A000045(k)-2 for k = 5, 7, 8, 10, 20, 100, 106, 508, 586, ...

%C which equal A000040(j) for j = 2, 5, 8, 16, 871,...

%t Clear[lst,a,f,n,p]; a=2;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst

%t Select[Fibonacci[Range[4,1000]]-2,PrimeQ] (* _Harvey P. Dale_, Jan 12 2019 *)

%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