login
Numbers m such that prime(m) + Fibonacci(m) is prime.
3

%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