A145026 Fibonacci numbers in A145025.

5, 21, 34, 144, 610, 987, 24157817, 7540113804746346429, 18547707689471986212190138521399707760, 382699285659014174244530850035136059033084785

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Sep 29 2008

Keywords

• nonn

Programs

Mathematica

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