A277284 Prime-indexed primes p such that Fibonacci(p) is prime.
3, 5, 11, 17, 83, 431, 509, 130021, 148091, 433781
Offset: 1
Examples
17 = A000040(7), with 7 itself being a prime, and A000045(17) = 1597, a prime, thus 17 is included in this sequence.
Programs
-
Mathematica
Select[Prime[Prime[Range[37000]]],PrimeQ[Fibonacci[#]]&] (* Harvey P. Dale, Sep 12 2019 *)
-
PARI
isok(p) = isprime(p) && isprime(primepi(p)) && isprime(fibonacci(p)); \\ Michel Marcus, Oct 21 2016
Comments