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 A138185 #17 Dec 20 2015 00:15:47
%S A138185 2,2,2,2,3,5,11,13,23,37,59,89,149,233,379,613,991,1597,2591,4201,
%T A138185 6779,10949,17713,28657,46381,75029,121403,196429,317827,514229,
%U A138185 832063,1346273,2178313,3524603,5702897,9227479,14930387,24157823,39088193
%N A138185 Smallest prime >= n-th Fibonacci number.
%H A138185 Harry J. Smith, <a href="/A138185/b138185.txt">Table of n, a(n) for n = 0..657</a>
%e A138185 a(6) = 11 because 11 is the smallest prime not less than 8 (the 6th Fibonacci number).
%p A138185 with(combinat): a:=proc(n) if isprime(fibonacci(n))=true then fibonacci(n) else nextprime(fibonacci(n)) end if end proc: seq(a(n),n=0..35); # _Emeric Deutsch_, Mar 31 2008
%t A138185 fib[0] = 0; fib[1] = 1; fib[n_] := fib[n] = fib[n - 1] + fib[n - 2] nextprime[n_] := Module[{k = n},While[Not[PrimeQ[k]], k++ ]; k] Table[nextprime[fib[n]], {n, 0, 50}] (* _Erich Friedman_, Mar 26 2008 *)
%t A138185 NextPrime/@(Fibonacci[Range[0,50]]-1) (* _Harvey P. Dale_, Nov 23 2011 *)
%Y A138185 Cf. A138184.
%K A138185 easy,nonn
%O A138185 0,1
%A A138185 _Colm Mulcahy_, Mar 04 2008
%E A138185 More terms from _Erich Friedman_ and _Emeric Deutsch_, Mar 26 2008
%E A138185 Changed the definition of Fibonacci number to F(0) = 0, F(1) = 1, which is the standard definition. - _Harry J. Smith_, Jan 06 2009