A220811 Numerators of the Verhulst sequence x(n+1)=4*x(n)-3*x(n)^2, x(0)=1/10.

1, 37, 10693, 84699253, 12357810823725973, 36165967884042486031784215609813, 10542455454648216809579521558960739092388747823498758873614315093

Offset: 0

Author

Reinhard Zumkeller, Dec 22 2012

Keywords

• nonn
• frac

References

• H. O. Peitgen and P. H. Richter, The Beauty of Fractals. Springer, 1986, p. 23f.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..9
• Eric Weisstein's World of Mathematics, Logistic Equation
• Wikipedia, Logistic map

Crossrefs

Cf. A051840, A220812 (denominators).

Programs

Haskell

import Data.Ratio ((%), numerator)
a220811 n = a220811_list !! n
a220811_list = map numerator vs where
   vs = iterate (\x -> x * (4 - 3 * x)) (1 % 10)
-- Reinhard Zumkeller, Dec 22 2012