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

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

Offset

1,1

Comments

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

Links

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

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
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

Crossrefs

Cf. A005478, A000045, A005384, A155011

Sequence in context: A239381 A180313 A053630 * A121533 A187733 A087170

Adjacent sequences: A155009 A155010 A155011 * A155013 A155014 A155015

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 18 2009

Status

approved