This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A050180 #35 Aug 11 2024 22:05:40
%S A050180 1,3,12,24,42,60,132,303,312,450,564,1236,1419,2952,10098,12060,13848,
%T A050180 17229,22356,37896,251904
%N A050180 Numbers m such that prime(m) + Fibonacci(m) is prime.
%C A050180 a(22) > 256737. - _J.W.L. (Jan) Eerland_, Jun 22 2022
%t A050180 Do[ If[ PrimeQ[ Prime[n] + Fibonacci[n]], Print[n] ], {n, 1, 150000} ]
%t A050180 Select[Range[10000], PrimeQ[Fibonacci[#] + Prime[#]] &] (* _Vincenzo Librandi_, Jul 29 2016 *)
%t A050180 DeleteCases[ParallelTable[If[PrimeQ[Prime[n]+Fibonacci[n]],n,a],{n,0,256737}],a] (* _J.W.L. (Jan) Eerland_, Jun 22 2022 *)
%o A050180 (PARI) for(n=1,10^5, if(isprime(prime(n)+fibonacci(n)),print1(n," ")))
%o A050180 (Magma) [n: n in [1..2000] | IsPrime(NthPrime(n)+Fibonacci(n))]; // _Vincenzo Librandi_, Jul 29 2016
%Y A050180 Cf. A004397, A001605.
%K A050180 nonn,more,hard
%O A050180 1,2
%A A050180 _Jason Earls_, Oct 06 2001
%E A050180 More terms from _Robert G. Wilson v_, Oct 08 2001
%E A050180 a(18)-a(19) from _Vincenzo Librandi_, Apr 10 2020
%E A050180 a(20) from _J.W.L. (Jan) Eerland_, Dec 23 2021
%E A050180 a(21) from _J.W.L. (Jan) Eerland_, Jun 22 2022