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 A134787 #16 Oct 25 2024 06:49:46
%S A134787 1,8,11,12,13,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,34,35,36,
%T A134787 37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,
%U A134787 60,61,62,63,64,65,66,67,68,69,70,71,73,74,75,76,77,78,79,80,81,82,85,86
%N A134787 Numbers k such that Fibonacci(prime(k)) is not prime.
%H A134787 Vincenzo Librandi, <a href="/A134787/b134787.txt">Table of n, a(n) for n = 1..1000</a>
%F A134787 a(n) = pi(A090819(n)). - _Amiram Eldar_, Oct 25 2024
%t A134787 k = {}; Do[If[ ! PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, n]], {n, 1, 100}]; k
%t A134787 Select[Range[90],!PrimeQ[Fibonacci[Prime[#]]]&] (* _Harvey P. Dale_, Oct 16 2016 *)
%o A134787 (Magma) [n: n in [1..100]| not IsPrime(Fibonacci(NthPrime(n)))]; // _Vincenzo Librandi_, Jan 18 2013
%o A134787 (PARI) is(n)=!isprime(fibonacci(prime(n))) \\ _Charles R Greathouse IV_, Feb 03 2014
%Y A134787 Cf. A000720 (pi), A050937, A090819.
%K A134787 nonn,easy
%O A134787 1,2
%A A134787 _Artur Jasinski_, Nov 12 2007
%E A134787 Definition corrected by _N. J. A. Sloane_, Nov 12 2007