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 A051840 #14 Feb 16 2025 08:32:41 %S A051840 0,0,1,0,1,0,1,0,1,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0, %T A051840 1,0,1,0,0,1,0,0,1,0,0,0,0,1,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,0,0,0,1,0, %U A051840 0,1,0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,1,0,0,1,0,1,0,0,1,0,0,0 %N A051840 Integer part of the Verhulst sequence x(n)=x(n-1)+3*(1-x(n-1))*x(n-1), x(0)=.1. %C A051840 a(n) = floor(A220811(n)/A220812(n)). - _Reinhard Zumkeller_, Dec 22 2012 %D A051840 Peitgen, H.-O. and Richter, P. H., The Beauty of Fractals. Springer, 1986, p. 24. %H A051840 Reinhard Zumkeller, <a href="/A051840/b051840.txt">Table of n, a(n) for n = 0..1000</a> %H A051840 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/LogisticEquation.html">Logistic Equation</a> %H A051840 Wikipedia, <a href="http://en.wikipedia.org/wiki/Logistic_map">Logistic map</a> %t A051840 NestList[ #*(4-3*#)&, 0.1, 103] // Floor (* _Jean-François Alcover_, Jan 16 2013 *) %o A051840 (Haskell) %o A051840 a051840 n = a051840_list !! n %o A051840 a051840_list = map floor vs where %o A051840 vs = iterate (\x -> x * (4 - 3 * x)) 0.1 %o A051840 -- _Reinhard Zumkeller_, Dec 22 2012 %K A051840 easy,nice,nonn %O A051840 0,1 %A A051840 Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Dec 13 1999 %E A051840 Data corrected for n > 37 by _Reinhard Zumkeller_, Dec 22 2012