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 A138183 #8 Apr 22 2018 08:47:01 %S A138183 2,3,5,8,13,13,21,21,34,34,34,55,55,55,55,55,89,89,89,89,89,89,89,89, %T A138183 144,144,144,144,144,144,144,144,144,144,233,233,233,233,233,233,233, %U A138183 233,233,233,233,233,233,233,233,233,233,377,377 %N A138183 Smallest Fibonacci number not less than the n-th prime. %e A138183 a(4) = 8 because the 8 is the smallest Fibonacci number not less than 7 (the 4th prime). %t A138183 With[{fibs=Fibonacci[Range[20]]},Table[SelectFirst[fibs,#>=n&],{n,Prime[ Range[60]]}]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 22 2018 *) %o A138183 (PARI) a(n) = {p = prime(n); i = 0; until ((f = fibonacci(i)) >= p, i++); f;} \\ _Michel Marcus_, Aug 31 2013 %Y A138183 Cf. A138182, A138185. %K A138183 easy,nonn %O A138183 1,1 %A A138183 _Colm Mulcahy_, Mar 04 2008