login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098081 a[n]=1+1/Log[Gamma[2-a[n-1]]]: 0
0, 7, 1, 18, 0, 55, 1, 295, 0, 2412, 1, 28397, 0, 455264, 1, 9487328, 0, 247621547 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
COMMENTS
My idea is to invent a fractional Lyapunov exponent: L(s)=Sum[ Log[Abs[ d^sx[n]/dt^s]],{n,1,m}]/m where: Gamma[2]=1 d^sx[n]/dt^s=Gamma[2]*x[n]^(1-s)/Gamma[2-s] Or L(s)=Sum[ Log[Abs[x[n]^(1-s)/Gamma[2-s]],{n,1,m}]/m If the average of x[n] is one then or Log[1]=0: L[s]=Log[Gamma[2-s]] which is always negative since: 0<=Gamma[2-s]<=1 on 0<=s<=1 which gives a Kaplan -Yorke dimension of: (d0 the topological dimension) if the other exponents are one dky(s)=d0+1/Log[Gamma[2-s]] Which gives a roughness gap in the range: s'=1+1/Log[Gamma[2-s]]
REFERENCES
Kiran M. Kolwankar and Anil D. Gangal, Fractional differentiability of nowhere differentiable functions and dimensions, Chaos 6 (1996), 505-513.
LINKS
MATHEMATICA
Clear[s, n, digits] s[n_]:=1+1/Log[Gamma[2-s[n-1]]]; s[1]=0.6 digits=18 a=Table[Floor[Abs[s[n]]], {n, 1, digits}] ListPlot[a, PlotJoined->True, PlotRange->All, Axes-> False]
CROSSREFS
Sequence in context: A348983 A013614 A179530 * A125234 A028325 A245484
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 13 2004
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 05:02 EDT 2024. Contains 371235 sequences. (Running on oeis4.)