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 A273046 #14 May 17 2016 11:19:00 %S A273046 0,1,1,2,3,5,8,21,55,610,987 %N A273046 Fibonacci numbers with digits in nonincreasing order. %C A273046 Presumably there are no more terms in this sequence. - _Charles R Greathouse IV_, May 17 2016 %t A273046 Select[Fibonacci@ Range[0, 10^4], Reverse@ Sort@ # == # &@ IntegerDigits@ # &] (* _Michael De Vlieger_, May 13 2016 *) %o A273046 (PARI) fibmod(n,m)=lift(((Mod([1,1;1,0],m))^n)[1,2]) %o A273046 isA009996(n)=my(d=digits(n)); vecsort(d,,4)==d %o A273046 B1=10^9;B2=10^57; %o A273046 for(n=1,1e9, if(isA009996(fibmod(n,B1)) && isA009996(fibmod(n,B2)) && isA009996(F=fibonacci(n)), print1(F", "))) \\ _Charles R Greathouse IV_, May 17 2016 %Y A273046 Cf. A000045, A009996, A272918, A273045. %K A273046 nonn,base %O A273046 1,4 %A A273046 _Omar E. Pol_, May 13 2016