A117740 Prime Fibonacci numbers that are Chen primes.

2, 3, 5, 13, 89, 233, 514229

Offset

1,1

Links

Table of n, a(n) for n=1..7.

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_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, May 05 2006

Crossrefs

Cf. A005478, A109611.

Sequence in context: A152114 A139095 A005478 * A041047 A120494 A038601

Adjacent sequences: A117737 A117738 A117739 * A117741 A117742 A117743

Keyword

nonn

Author

Jani Melik, Apr 28 2006; corrected Apr 28 2006

Status

approved