[go: up one dir, main page]

login
A051840
Integer part of the Verhulst sequence x(n)=x(n-1)+3*(1-x(n-1))*x(n-1), x(0)=.1.
3
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, 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, 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
OFFSET
0,1
COMMENTS
a(n) = floor(A220811(n)/A220812(n)). - Reinhard Zumkeller, Dec 22 2012
REFERENCES
Peitgen, H.-O. and Richter, P. H., The Beauty of Fractals. Springer, 1986, p. 24.
LINKS
Eric Weisstein's World of Mathematics, Logistic Equation
Wikipedia, Logistic map
MATHEMATICA
NestList[ #*(4-3*#)&, 0.1, 103] // Floor (* Jean-François Alcover, Jan 16 2013 *)
PROG
(Haskell)
a051840 n = a051840_list !! n
a051840_list = map floor vs where
vs = iterate (\x -> x * (4 - 3 * x)) 0.1
-- Reinhard Zumkeller, Dec 22 2012
CROSSREFS
Sequence in context: A348327 A144607 A327253 * A174275 A353673 A144599
KEYWORD
easy,nice,nonn
AUTHOR
Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Dec 13 1999
EXTENSIONS
Data corrected for n > 37 by Reinhard Zumkeller, Dec 22 2012
STATUS
approved