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 *)
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