|
Search: id:A117744
|
|
|
| A117744 |
|
Triangle read by rows: a(n,m) = coefficient of x^n in p[x] = x/(1 - m*x - x^2 + x^3 - x^5). |
|
+0
1
|
|
| 0, 0, 0, 1, 1, 1, 1, 2, 3, 4, 2, 5, 10, 17, 26, 2, 11, 32, 71, 134, 227, 3, 25, 103, 297, 691, 1393, 2535, 4, 57, 332, 1243, 3564, 8549, 18052, 34647, 6, 130, 1070, 5202, 18382, 52466, 128550, 280930, 561782, 9, 297, 3449, 21771, 94809, 321989, 915417
(list; graph; listen)
|
|
|
OFFSET
|
0,8
|
|
|
EXAMPLE
|
0
0, 0
1, 1, 1
1, 2, 3, 4
2, 5, 10, 17, 26
2, 11, 32, 71, 134, 227
3, 25, 103, 297, 691, 1393, 2535
4, 57, 332, 1243, 3564, 8549, 18052, 34647
6, 130, 1070, 5202, 18382, 52466, 128550, 280930, 561782
9, 297, 3449, 21771, 94809, 321989, 915417, 2277879, 5111081, 10559169
|
|
MATHEMATICA
|
(* define the polynomial*) p[x_] = p[x_] = x/(1 - m*x - x^2 + x^3 - x^5); (* Taylor derivative expansion of the polynomial*) a = Table[ Flatten[{{p[0]}, Table[Coefficient[Series[p[x], {x, 0, 30}], x^n], {n, 1, 10}]}], {m, 1, 10}] (*antidiagonal expansion to give triangular function*) b = Join[{{0}}, Delete[Table[Table[a[[n]][[m]], {n, 1, m + 1}], {m, 0, 9}], 1]] Flatten[b]
|
|
CROSSREFS
|
Cf. A107293; A107321; A107379; A107332.
Adjacent sequences: A117741 A117742 A117743 this_sequence A117745 A117746 A117747
Sequence in context: A121701 A026346 A120636 this_sequence A091732 A109746 A061020
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006
|
|
EXTENSIONS
|
I partially edited this entry, Jun 13 2006 - njas
|
|
|
Search completed in 0.002 seconds
|
