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!)
 A108169 Alternating three ratio switched sequence based on characteristic root of A000931. 0
 1, 1, 1, 3, 18, 33, 111, 690, 1269, 4292, 26705, 49118, 166165, 1033922, 1901679, 6433333, 40029886, 73626439, 249076459, 1549819116, 2850561773, 9643381402, 60003650693, 110363919984, 373358466957, 2323134396636, 4272910326315 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,4 COMMENTS Limit[a(n)/a(n-1),n->Infinity]={1.83929, 3.38298, 6.22226} LINKS FORMULA if Mod[n, 3]=0 then F[n] = Floor[beta*F[n-1]] if Mod[n, 3]=1 then F[n] = Floor[beta^2*F[n-1]] if Mod[n, 3]=2 then F[n] = Floor[beta^3*F[n-1]] a(n) = F[n] MATHEMATICA NSolve[x^3 - x^2 - x - 1 == 0, x] beta = 1.8392867552141612; F[1] = 1; F[2] = 1; F[n__] := F[n] = If[Mod[n, 3] == 0, Floor[beta*F[n - 1]], If[ Mod[n, 3] == 1, Floor[(beta^2)*F[n - 1]], Floor[(beta^3)*F[n - 1]]]] a = Table[F[n], {n, 1, 50}] an = Table[N[a[[n]]/a[[n - 1]]], {n, 6, 50}] CROSSREFS Cf. A000931. Sequence in context: A003337 A047714 A204192 * A063116 A125284 A097989 Adjacent sequences:  A108166 A108167 A108168 * A108170 A108171 A108172 KEYWORD nonn,uned AUTHOR Roger L. Bagula, Jun 13 2005 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 February 20 20:34 EST 2020. Contains 332084 sequences. (Running on oeis4.)