%I A117740
%S A117740 2,3,5,13,89,233,514229
%N A117740 Prime Fibonacci numbers that are Chen primes.
%p A117740 ischenprime:=proc(n); if (isprime(n) = 'true') then if (isprime(n+2) 
               = 'true' or numtheory[bigomega](n+2) = 2) then RETURN('true') else 
               RETURN('false') fi fi end: ts_prime_fibonacci_chen:=proc(n) local 
               i, tren, ans; ans:= [ ]: for i from 0 to n do tren := combinat[fibonacci](i): 
               if (isprime( tren ) = 'true' and ischenprime(tren) = 'true') then 
               ans:=[op(ans), tren]: fi od; RETURN(ans) end: ts_prime_fibonacci_chen(300); 
               - Jani Melik (jani_melik(AT)hotmail.com), May 05 2006
%Y A117740 Cf. A005478, A109611.
%Y A117740 Sequence in context: A152114 A139095 A005478 this_sequence A041047 A120494 
               A164825
%Y A117740 Adjacent sequences: A117737 A117738 A117739 this_sequence A117741 A117742 
               A117743
%K A117740 nonn
%O A117740 1,1
%A A117740 Jani Melik (jani_melik(AT)hotmail.com), Apr 28 2006; corrected Apr 28 
               2006