%I #5 Mar 30 2012 17:22:41
%S 2,3,5,7,11,17,29,43,47,73,181,197,199,293,311,503,521,839,1361,2131,
%T 2203,2207,3571,5749,9349,13763,23633,24469,24473,38239,103483,103681,
%U 161983,167759,271367,399601,439081,439157,709283,1692737,3010349
%N Primes that are the difference of two Lucas numbers; primes in A113191.
%C The difference L(i)-L(j) equals the sum L(j+1)+...+L(i+2).
%H T. D. Noe, <a href="/A113192/b113192.txt">Table of n, a(n) for n=1..1000</a>
%e The prime 181 is here because it is L(11)-L(6).
%t Lucas[n_] := Fibonacci[n+1]+Fibonacci[n-1]; lst={}; Do[p=Lucas[n]-Lucas[i]; If[PrimeQ[p], AppendTo[lst, p]], {n, 2, 40}, {i, 0, n-2}]; Union[lst]
%Y Cf. A000032 (Lucas numbers), A001606 (Lucas(n) is prime), A113193 (number of times that Lucas(n)-Lucas(i) is prime for i=0..n-3).
%K nonn
%O 1,1
%A _T. D. Noe_, Oct 17 2005
|