A163856 Primes of the form Fibonacci(k)-10.
3, 11, 79, 223, 367, 977, 514219, 24157807, 53316291163, 420196140727489663, 573147844013817084091, 48558529144435440119720805669229197631, 538522340430300790495419781092981030523
Offset: 1
Keywords
Programs
-
Mathematica
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 *)
Extensions
Definition rephrased by R. J. Mathar, Aug 12 2009
Comments