|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
_Reinhard Zumkeller_, Table of n, a(n) for n = 0..1000
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: A151763 A022925 A144607 * A174275 A144599 A144608
Adjacent sequences: A051837 A051838 A051839 * A051841 A051842 A051843
|
|
|
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
|
| |
|
|
