|
| |
|
|
A122056
|
|
A Somos 9 -Hone exponent type recursion:a(n) = (x^(n-1)*a(n - 1)a(n - 8) - a(n - 4)*a(n - 5))/a(n - 9).
|
|
0
| |
|
|
0, 0, 1, 3, 6, 10, 15, 21, 28, 36, 46, 58, 72, 88, 106, 126, 148, 172, 199, 229, 262, 298, 337, 379, 424, 472, 524, 580, 640, 704, 772
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
REFERENCES
| A. N. W. Hone, Algebraic curves, integer sequences and a discrete Painleve transcendent, Proceedings of SIDE 6, Helsinki, Finland, Jun 19 2004. [Set a(n)=d(n+3) on p. 8] http://www.kent.ac.uk/ims/publications/documents/paper_607.pdf
|
|
|
FORMULA
| p[n]=(x^(n - 1)p[n - 1]p[n - 8] + p[n - 4]*p[n - 5])/p[n - 9] a(n) = Exponent[p[n], x]
|
|
|
MATHEMATICA
| p[n_] := p[n] = Cancel[Simplify[(x^(n - 1)p[n - 1]p[n - 8] + p[n - 4]*p[n - 5])/p[n - 9]]]; p[ -9] = 1; p[ -8] = 1; p[ -7] = 1; p[ -6] = 1; p[ -5] = 1; p[ -4] = 1; p[ -3] = 1; p[ -2] = 1; p[ -1] = 1; Table[Exponent[p[n], x], {n, 0, 30}]
|
|
|
CROSSREFS
| Cf. A006731, A014125.
Sequence in context: A194153 A025737 A120721 * A025706 A025730 A066353
Adjacent sequences: A122053 A122054 A122055 * A122057 A122058 A122059
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 13 2006
|
| |
|
|
