|
Search: id:A117715
|
|
|
| A117715 |
|
Triangle based on expansion x/(1-m*x-x^2)=Sum[Fibonacci[n,m]*x^n/n!,{n,0,Infinity}]. |
|
+0
3
|
|
| 0, 1, 1, 0, 1, 2, 1, 2, 5, 10, 0, 3, 12, 33, 72, 1, 5, 29, 109, 305, 701, 0, 8, 70, 360, 1292, 3640, 8658, 1, 13, 169, 1189, 5473, 18901, 53353, 129949, 0, 21, 408, 3927, 23184, 98145, 328776, 927843, 2298912, 1, 34, 985, 12970, 98209, 509626, 2026009
(list; table; graph; listen)
|
|
|
OFFSET
|
0,6
|
|
|
REFERENCES
|
Steven Wolfram, The Mathematica Book,Cambridge University Press, 3rd ed. 1996, page 728
|
|
FORMULA
|
a(n,m) = Fibonacci[n,m]
|
|
EXAMPLE
|
0
1, 1
0, 1, 2
1, 2, 5, 10
0, 3, 12, 33, 72
1, 5, 29, 109, 305, 701
0, 8, 70, 360, 1292, 3640, 8658
1, 13, 169, 1189, 5473, 18901, 53353, 129949
|
|
MAPLE
|
with(combinat):for n from 0 to 9 do seq(fibonacci(n, m), m = 0 .. n) od; - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Apr 09 2008
|
|
MATHEMATICA
|
a = Table[Table[Fibonacci[n, m], {m, 0, n}], {n, 0, 10}] Flatten[a]
|
|
CROSSREFS
|
Cf. A000045, A117716.
Cf. A073133.
Sequence in context: A006702 A129394 A049901 this_sequence A107087 A115141 A031148
Adjacent sequences: A117712 A117713 A117714 this_sequence A117716 A117717 A117718
|
|
KEYWORD
|
nonn,uned,tabl
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 13 2006
|
|
|
Search completed in 0.002 seconds
|
