%I #35 Aug 11 2024 22:05:40
%S 1,3,12,24,42,60,132,303,312,450,564,1236,1419,2952,10098,12060,13848,
%T 17229,22356,37896,251904
%N Numbers m such that prime(m) + Fibonacci(m) is prime.
%C a(22) > 256737. - _J.W.L. (Jan) Eerland_, Jun 22 2022
%t Do[ If[ PrimeQ[ Prime[n] + Fibonacci[n]], Print[n] ], {n, 1, 150000} ]
%t Select[Range[10000], PrimeQ[Fibonacci[#] + Prime[#]] &] (* _Vincenzo Librandi_, Jul 29 2016 *)
%t DeleteCases[ParallelTable[If[PrimeQ[Prime[n]+Fibonacci[n]],n,a],{n,0,256737}],a] (* _J.W.L. (Jan) Eerland_, Jun 22 2022 *)
%o (PARI) for(n=1,10^5, if(isprime(prime(n)+fibonacci(n)),print1(n," ")))
%o (Magma) [n: n in [1..2000] | IsPrime(NthPrime(n)+Fibonacci(n))]; // _Vincenzo Librandi_, Jul 29 2016
%Y Cf. A004397, A001605.
%K nonn,more,hard
%O 1,2
%A _Jason Earls_, Oct 06 2001
%E More terms from _Robert G. Wilson v_, Oct 08 2001
%E a(18)-a(19) from _Vincenzo Librandi_, Apr 10 2020
%E a(20) from _J.W.L. (Jan) Eerland_, Dec 23 2021
%E a(21) from _J.W.L. (Jan) Eerland_, Jun 22 2022