Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A117745
Prime Fibonacci numbers that are not Chen primes.
0
1597, 28657, 433494437, 2971215073, 99194853094755497, 1066340417491710595814572169, 19134702400093278081449423917
OFFSET
0,1
MAPLE
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
CROSSREFS
Sequence in context: A068131 A068263 A078954 * A340532 A189456 A084427
KEYWORD
nonn
AUTHOR
Jani Melik, Apr 28 2006
STATUS
approved