OFFSET
1,2
COMMENTS
a(22) > 256737. - J.W.L. (Jan) Eerland, Jun 22 2022
MATHEMATICA
Do[ If[ PrimeQ[ Prime[n] + Fibonacci[n]], Print[n] ], {n, 1, 150000} ]
Select[Range[10000], PrimeQ[Fibonacci[#] + Prime[#]] &] (* Vincenzo Librandi, Jul 29 2016 *)
DeleteCases[ParallelTable[If[PrimeQ[Prime[n]+Fibonacci[n]], n, a], {n, 0, 256737}], a] (* J.W.L. (Jan) Eerland, Jun 22 2022 *)
PROG
(PARI) for(n=1, 10^5, if(isprime(prime(n)+fibonacci(n)), print1(n, " ")))
(Magma) [n: n in [1..2000] | IsPrime(NthPrime(n)+Fibonacci(n))]; // Vincenzo Librandi, Jul 29 2016
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Jason Earls, Oct 06 2001
EXTENSIONS
More terms from Robert G. Wilson v, Oct 08 2001
a(18)-a(19) from Vincenzo Librandi, Apr 10 2020
a(20) from J.W.L. (Jan) Eerland, Dec 23 2021
a(21) from J.W.L. (Jan) Eerland, Jun 22 2022
STATUS
approved