|
%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
|
