%I #5 Feb 17 2020 17:42:47
%S 3,11,79,223,367,977,514219,24157807,53316291163,420196140727489663,
%T 573147844013817084091,48558529144435440119720805669229197631,
%U 538522340430300790495419781092981030523
%N Primes of the form Fibonacci(k)-10.
%C Generated by k= 7, 8, 11, 13, 14, 16, 29, 37, 53, 86, 101, 182, 187, 221,...
%F {A000045(k) : A000045(k)-10 in A000040}.
%t 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
%t Select[Fibonacci[Range[7,200]]-10,PrimeQ] (* _Harvey P. Dale_, Feb 17 2020 *)
%Y Cf. A000045, A163851, A163852, A163853, A163854, A163855
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 05 2009
%E Definition rephrased by _R. J. Mathar_, Aug 12 2009