|
Search: id:A107858
|
|
|
| A107858 |
|
A sequence with alternating limits of the golden mean and its square based on A000045. |
|
+0
1
|
|
| 1, 1, 2, 3, 7, 11, 28, 45, 117, 189, 494, 799, 2091, 3383, 8856, 14329, 37513, 60697, 158906, 257115, 673135, 1089155, 2851444, 4613733, 12078909, 19544085, 51167078, 82790071, 216747219, 350704367, 918155952, 1485607537, 3889371025
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Limit[a[n]/a[n-1],n->Infinity]-->{2.61803, 1.61803}
|
|
FORMULA
|
F[n] = F[n-1]+F[n-2] a(n) = F[Floor[Phi*n]]
|
|
MATHEMATICA
|
F[1] = 0; F[2] = 1; F[n__] := F[n] = F[n - 1] + F[n - 2] a1 = Table[F[ Floor[(Sqrt[5] + 1)*n/2]], {n, 1, 50}]
|
|
CROSSREFS
|
Cf. A000045.
Sequence in context: A049454 A095055 A107857 this_sequence A143926 A112840 A014981
Adjacent sequences: A107855 A107856 A107857 this_sequence A107859 A107860 A107861
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 12 2005
|
|
|
Search completed in 0.004 seconds
|
