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 A113190 #5 Nov 05 2017 08:15:14
%S A113190 14,22,26,30,31,34,38,40,42,44,46,54,61,62,64,65,67,78,80,82,88,92,94,
%T A113190 95,98,102,103,109,112,113,117,119,121,122,125,126,127,134,135,138,
%U A113190 139,142,143,152,154,155,158,166,167,170,172,174,175,176,182,188,190,193
%N A113190 Numbers n such that Fibonacci(n)-Fibonacci(i) is composite for all i=0..n-3.
%C A113190 These are the n such that A113189(n)=0.
%t A113190 lst={}; Do[i=0; While[i<n-2 && !PrimeQ[Fibonacci[n]-Fibonacci[i]], i++ ]; If[i==n-2, AppendTo[lst, n]], {n, 3, 220}]; lst
%t A113190 Select[Range[3,200],AllTrue[Fibonacci[#]-Fibonacci[Range[0,#-3]], CompositeQ] &] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Nov 05 2017 *)
%Y A113190 Cf. A113188 (primes that are the difference of two Fibonacci numbers).
%K A113190 nonn
%O A113190 1,1
%A A113190 _T. D. Noe_, Oct 17 2005