|
%I #2 Mar 31 2012 12:38:16
%S 5,21,34,144,610,987,24157817,7540113804746346429,
%T 18547707689471986212190138521399707760,
%U 382699285659014174244530850035136059033084785
%N Fibonacci numbers in A145025.
%t PrimeNextDelta[n_]:=(Do[If[PrimeQ[n+k],d=k;Break[]],{k,12!}];d)(*Deltabetweenprimeandnextconsecutiveprime.*) PrimePrevDelta[n_]:=(Do[If[PrimeQ[n-k],d=k;Break[]],{k,12!}];d)(*Deltabetweenprimeandprevconsecutiveprime.*) lst={};Do[f=Fibonacci[n];d1=PrimePrevDelta[f];d2=PrimeNextDelta[f];If[d1==d2,AppendTo[lst,f]],{n,3,3*5!}];lst
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Sep 29 2008
|
