A155012 Fibonacci prime numbers f, 3*f+2 are also primes.

3, 5, 13, 89, 233, 1597, 514229, 99194853094755497, 19134702400093278081449423917

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 18 2009

Keywords

• nonn

Comments

3*3+2=11, 3*5+2=17, 3*13+2=41, ...

Crossrefs

Cf. A005478, A000045, A005384, A155011

Programs

Mathematica

a={};Do[f=Fibonacci[n];If[PrimeQ[f],If[PrimeQ[3*f+2],AppendTo[a,f]]],{n,4*6!}];a

Python

from gmpy2 import is_prime
A155012_list = []
a, b, a2, b2 = 0, 1, 2, 5
for _ in range(10**3):
    if is_prime(b) and is_prime(b2):
        A155012_list.append(b)
    a, b, a2, b2 = b, a+b, b2, a2+b2-2 # Chai Wah Wu, Nov 04 2015