A163852
Primes of the form Fibonacci(k)-3.
Original entry on oeis.org
2, 5, 31, 607, 628580612875886694881648328579603114508131388106874704297602636435532791990880832689119, 7531436383873795315009506236096188648036856522778750817396763797198414070984881727501992372613765176393353441439
Offset: 1
-
Clear[lst,a,f,n,p]; a=3;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst
Indices into Fibonacci and prime sequences added by
R. J. Mathar, Aug 18 2009
A163853
Primes 4 less than some Fibonacci number.
Original entry on oeis.org
17, 229, 373, 983, 4177, 6761, 17707, 4052739537877, 190392490709131, 19740274219868223163, 354224848179261915071, 11825896447871834976429068423, 3807901929474025356630904134047
Offset: 1
-
Clear[lst,a,f,n,p]; a=4;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p> 1,AppendTo[lst,p]],{n,3*6!}];lst
Select[Fibonacci[Range[4,300]]-4,PrimeQ] (* Harvey P. Dale, Jul 12 2025 *)
Some indices to Fibonacci and prime sequences added by
R. J. Mathar, Sep 17 2009
A163854
Primes of the form Fibonacci(k)-5.
Original entry on oeis.org
3, 29, 139, 2579, 3987795824799770715342824788687062628452272409956636682999616403, 8269366108663463411004717981412027167937978847386801205243459016220834185059487057691
Offset: 1
-
Clear[lst,a,f,n,p]; a=5;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p>1,AppendTo[lst,p]],{n,3*6!}];lst
A163855
Primes p such that p+6 is a Fibonacci number.
Original entry on oeis.org
2, 7, 83, 227, 24157811, 2971215067, 53316291167, 5527939700884751, 99194853094755491, 420196140727489667, 4660046610375530303, 83621143489848422971, 1066340417491710595814572163
Offset: 1
-
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
Select[Fibonacci[Range[5,200]]-6,PrimeQ] (* Harvey P. Dale, Jun 01 2024 *)
A205719
Primes of the form Fibonacci(n) + 3.
Original entry on oeis.org
5, 11, 37, 613, 10949, 63245989, 679891637638612261, 7308805952221443105020355493, 13598018856492162040239554477268293, 453973694165307953197296969697410619233829
Offset: 1
A163856
Primes of the form Fibonacci(k)-10.
Original entry on oeis.org
3, 11, 79, 223, 367, 977, 514219, 24157807, 53316291163, 420196140727489663, 573147844013817084091, 48558529144435440119720805669229197631, 538522340430300790495419781092981030523
Offset: 1
-
Clear[lst,a,f,n,p]; a=10;lst={};Do[f=Fibonacci[n];If[PrimeQ[p=f-a]&&p> 1,AppendTo[lst,p]],{n,3*6!}];lst
Select[Fibonacci[Range[7,200]]-10,PrimeQ] (* Harvey P. Dale, Feb 17 2020 *)
Showing 1-6 of 6 results.
Comments