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
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 *)
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-3 of 3 results.
Comments