OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
Select[Prime[Prime[Range[37000]]], PrimeQ[Fibonacci[#]]&] (* Harvey P. Dale, Sep 12 2019 *)
PROG
(PARI) isok(p) = isprime(p) && isprime(primepi(p)) && isprime(fibonacci(p)); \\ Michel Marcus, Oct 21 2016
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Bobby Jacobs, Oct 21 2016
STATUS
approved