|
|
A155012
|
|
Fibonacci prime numbers f, 3*f+2 are also primes.
|
|
0
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
3*3+2=11, 3*5+2=17, 3*13+2=41, ...
|
|
LINKS
|
|
|
MATHEMATICA
|
a={}; Do[f=Fibonacci[n]; If[PrimeQ[f], If[PrimeQ[3*f+2], AppendTo[a, f]]], {n, 4*6!}]; a
|
|
PROG
|
(Python)
from gmpy2 import is_prime
a, b, a2, b2 = 0, 1, 2, 5
for _ in range(10**3):
if is_prime(b) and is_prime(b2):
a, b, a2, b2 = b, a+b, b2, a2+b2-2 # Chai Wah Wu, Nov 04 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|