The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #4 Sep 03 2017 11:25:36
%S 1597,28657,433494437,2971215073,99194853094755497,
%T 1066340417491710595814572169,19134702400093278081449423917
%N Prime Fibonacci numbers that are not Chen primes.
%p 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_, May 05 2006
%Y Cf. A005478, A109611.
%K nonn
%O 0,1
%A _Jani Melik_, Apr 28 2006