%I A117745
%S A117745 1597,28657,433494437,2971215073,99194853094755497,
%T A117745 1066340417491710595814572169,19134702400093278081449423917
%N A117745 Prime Fibonacci numbers that are not Chen primes.
%p A117745 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_notchen:=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) = 'false') then 
               ans:=[op(ans), tren]: fi od; return ans end: ts_prime_fibonacci_notchen(300); 
               - Jani Melik (jani_melik(AT)hotmail.com), May 05 2006
%Y A117745 Cf. A005478, A109611.
%Y A117745 Sequence in context: A068263 A147316 A078954 this_sequence A084427 A043412 
               A078853
%Y A117745 Adjacent sequences: A117742 A117743 A117744 this_sequence A117746 A117747 
               A117748
%K A117745 nonn
%O A117745 0,1
%A A117745 Jani Melik (jani_melik(AT)hotmail.com), Apr 28 2006