|
%I #10 Jan 26 2022 11:58:21
%S 1,37,10693,84699253,12357810823725973,
%T 36165967884042486031784215609813,
%U 10542455454648216809579521558960739092388747823498758873614315093
%N Numerators of the Verhulst sequence x(n+1)=4*x(n)-3*x(n)^2, x(0)=1/10.
%D H. O. Peitgen and P. H. Richter, The Beauty of Fractals. Springer, 1986, p. 23f.
%H Reinhard Zumkeller, <a href="/A220811/b220811.txt">Table of n, a(n) for n = 0..9</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LogisticEquation.html">Logistic Equation</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Logistic_map">Logistic map</a>
%o (Haskell)
%o import Data.Ratio ((%), numerator)
%o a220811 n = a220811_list !! n
%o a220811_list = map numerator vs where
%o vs = iterate (\x -> x * (4 - 3 * x)) (1 % 10)
%o -- _Reinhard Zumkeller_, Dec 22 2012
%Y Cf. A051840, A220812 (denominators).
%K nonn,frac
%O 0,2
%A _Reinhard Zumkeller_, Dec 22 2012
| 