%I #20 Feb 20 2018 05:07:25
%S 7,11,23,29,37,47,97,149,157,199,241,379,521,613,631,1021,1741,2207,
%T 3571,9349,10949,11933,17713,46381,46457,46601,50549,75169,196439,
%U 203183,214129,560597,832129,2178343,3010349,3531343,14930441,15444581,16276621,24157961
%N Primes that have two terms in their Zeckendorf representation.
%C Primes of the form Fibonacci(x)+Fibonacci(y), x-y>1.
%F Intersection of A000040 and A179242. - _Michel Marcus_, May 28 2013
%e 7 = 5+2. 11=8+3. 23=21+2. 29 =21+8.
%t nn = 40; f = Fibonacci[Range[nn]]; ps = {}; Do[ps = Union[ps, Select[f[[k]] + Delete[f, {{k-1}, {k}, {k+1}}], PrimeQ]], {k, 4, nn-1}]; ps (* _T. D. Noe_, May 08 2012 *)
%Y Cf. A014417, A179242-A179253, A182535, A182570-A182574.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, May 05 2012
%E More terms from _T. D. Noe_, May 08 2012
|