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 A138181 #5 May 25 2013 09:45:24 %S A138181 2,3,5,5,8,13,13,13,21,21,21,34,34,34,34,34,55,55,55,55,55,55,55,89, %T A138181 89,89,89,89,89,89,89,89,89,89,144,144,144,144,144,144,144,144,144, %U A138181 144,144,144,144,144,144,144,233,233 %N A138181 Largest Fibonacci number not exceeding the n-th prime. %C A138181 a(n) = largest summand in the Zeckendorf representation of the n-th prime %e A138181 a(4)=5 because 5 is the largest Fibonacci number not exceeding 7 (the 4th prime) %t A138181 With[{rf=Reverse[Fibonacci[Range[20]]]},Flatten[Table[Select[rf,#<=Prime[ n]&,1],{n,60}]]] (* _Harvey P. Dale_, May 25 2013 *) %Y A138181 Cf. A138182, A138183, A000040, A000045. %K A138181 easy,nonn %O A138181 1,1 %A A138181 _Colm Mulcahy_, Mar 04 2008 %E A138181 Corrected by _Harvey P. Dale_, May 25 2013