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 A134788 #22 Oct 24 2024 09:25:36
%S A134788 -1,0,6,78,220,1580,28634,514200,433494394,2971215026,
%T A134788 99194853094755414,1066340417491710595814572038,
%U A134788 19134702400093278081449423780,475420437734698220747368027166749382927701417016557193662268716376935475882
%N A134788 If Fibonacci(prime(k)) is prime, append Fibonacci(prime(k)) - prime(k) to the sequence.
%H A134788 Amiram Eldar, <a href="/A134788/b134788.txt">Table of n, a(n) for n = 1..20</a>
%t A134788 k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Fibonacci[Prime[n]] - Prime[n]]], {n, 1, 100}]; k
%t A134788 fpn[n_]:=Module[{prn=Prime[n],fib},fib=Fibonacci[prn];If[PrimeQ[fib], fib- prn,a]]; DeleteCases[Table[fpn[i],{i,100}],a] (* _Harvey P. Dale_, Mar 27 2012 *)
%o A134788 (PARI) forprime(n=1,1000,if(isprime(fibonacci(n)),print1(fibonacci(n)-n,","))) \\ _Edward Jiang_, Nov 23 2013
%Y A134788 Cf. A050937, A090819, A134787.
%K A134788 sign
%O A134788 1,3
%A A134788 _Artur Jasinski_, Nov 12 2007