|
%I #6 Jun 01 2024 18:21:33
%S 2,7,83,227,24157811,2971215067,53316291167,5527939700884751,
%T 99194853094755491,420196140727489667,4660046610375530303,
%U 83621143489848422971,1066340417491710595814572163
%N Primes p such that p+6 is a Fibonacci number.
%t Clear[lst,a,f,n,p]; a=6;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst
%t Select[Fibonacci[Range[5,200]]-6,PrimeQ] (* _Harvey P. Dale_, Jun 01 2024 *)
%Y Cf. A000045, A163851, A163852, A163853, A163854
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 05 2009
|
