The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A117645 Generalized Fibonacci sequence to simulate a bouncing ball trajectory: f[n]=a+f[n-1]+b*f[n-2]: a=(248/125),b=-1. 0
 120, 125, 128, 128, 127, 124, 119, 112, 103, 93, 81, 67, 53, 38, 22, 6, 11, 27, 43, 58, 72, 85, 96, 107, 115, 122, 126, 129, 129, 128, 124, 119, 112, 102, 92, 79, 66, 51, 36, 20, 4, 13, 29, 44, 59, 73, 86, 97, 107, 115, 122, 126, 128, 128, 126, 123 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS This sequence gives a kind of rolling curve: what is odd and interesting is that it gives harmonic behavior with a purely linear approach. This code solves a Binet : Needs["DiscreteMath`RSolve`"]; Clear[f]; f[n_Integer] = Module[{a}, a[n] /. RSolve[{a[n] == (248/125)*a[ n - 1] - a[n - 2], a == 120, a == 125}, a[n], n][] // Simplify] // ToRadicals f[n]=120*Cos[n*ArcTan[Sqrt/124]]+745*Sin[n*ArcTan[Sqrt/124]]/Sqrt The curve as integers is like what a bouncing ball with perfect elasticity would look in an equal time strobe light. This ratio gives tangent curves: b0 = Table[N[f[n + 1]/f[n]], {n, 0, 55}] ListPlot[b0] LINKS FORMULA a(0)=120;a(1)=125 a(n) = (248/125)*a(n - 1) - a(n - 2);a(n)=Abs[Floor[a(n)]] MATHEMATICA Clear[f] f = 120; f = 125; f[n_] := f[n] = (248/125)*f[n - 1] - f[n - 2] Table[Abs[Floor[f[n]]], {n, 0, 55}] ListPlot[%] M = {{0, 1}, {-1, (248/125)}} v = {120, 125}; v[n_] := v[n] = M.v[n - 1] Table[Abs[Floor[v[n][]]], {n, 0, 55}] ListPlot[%] CROSSREFS Sequence in context: A239535 A085218 A296884 * A157425 A030501 A271578 Adjacent sequences:  A117642 A117643 A117644 * A117646 A117647 A117648 KEYWORD nonn,uned AUTHOR Roger L. Bagula, Apr 10 2006 STATUS approved

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

Last modified May 11 00:43 EDT 2021. Contains 343784 sequences. (Running on oeis4.)