login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes 4 less than some Fibonacci number.
3

%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