|
%I #3 Mar 31 2012 12:38:26
%S 17,229,373,983,4177,6761,17707,4052739537877,190392490709131,
%T 19740274219868223163,354224848179261915071,
%U 11825896447871834976429068423,3807901929474025356630904134047
%N Primes 4 less than some Fibonacci number.
%C Primes of the form A000045(i)-4, generated by i= 8, 13, 14, 16, 19, 20, 22,...
%C representing prime(j) at j= 4, 7, 50, 74, 166, 574, 870, 2033,...
%t 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
%Y Cf. A000045, A005478, A163851, A163852, A163854, A163855
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Aug 05 2009
%E Some indices to Fibonacci and prime sequences added by _R. J. Mathar_, Sep 17 2009
|
