|
| |
|
|
A107858
|
|
A sequence with alternating limits of the golden mean and its square based on A000045.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Limit[a[n]/a[n-1],n->Infinity]-->{2.61803, 1.61803}
Apparently the same as A107857. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 09 2010]
|
|
|
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 * A143926 A112840 A014981
Adjacent sequences: A107855 A107856 A107857 * A107859 A107860 A107861
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 12 2005
|
| |
|
|
