|
| |
| |
|
|
|
0, 1, 1, 2, 2, 2, 8, 4, 5, 34, 9, 14, 144, 21, 36, 610, 49, 95, 2584, 114, 250, 10946, 265, 657, 46368, 616
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Pisot Number
|
|
|
MATHEMATICA
| a[1, 0] = 0; a[1, 1] = 1; a[1, n_Integer?Positive] := a[1, n] = a[1, n - 1] + a[1, n - 2] a[2, 0] = 0; a[2, 1] = 1; a[2, 2] = 1; a[2, n_Integer?Positive] := a[2, n] = a[2, n - 2] + a[2, n - 3] a[3, 0] = 0; a[3, 1] = a[3, 2] = a[3, 3] = 1; a[3, n_Integer?Positive] := a[3, n] = a[3, n - 1] + a[3, n - 4] b = Table[a[1 + Mod[n, 3], n], {n, 0, 25}]
|
|
|
CROSSREFS
| Cf. A000045, A000073, A017898.
Sequence in context: A054271 A011202 A085484 * A008293 A185811 A011140
Adjacent sequences: A116582 A116583 A116584 * A116586 A116587 A116588
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 26 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Apr 09 2008
|
| |
|
|
