|
Search: id:A097550
|
|
|
| A097550 |
|
Number of positive words of length n in the monoid Br_3 of positive braids on 4 strands. |
|
+0
12
|
|
| 1, 3, 8, 19, 44, 102, 237, 551, 1281, 2978, 6923, 16094, 37414, 86977, 202197, 470051, 1092736, 2540303, 5905488, 13728594, 31915109, 74193627, 172479257, 400965626, 932131991, 2166943978, 5037533578, 11710844769, 27224411129, 63289077427
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
G.f.: (1 + q^2)/(1-3q+2q^2-q^3).
a(n) = term (1,1) in the 1x3 matrix [1,1,2].[3,1,0; -2,0,1; 1,0,0]^n. - Alois P. Heinz (heinz(AT)hs-heilbronn.de), Jul 24 2008
|
|
MAPLE
|
a := n -> (Matrix([[1, 1, 2]]).Matrix([[3, 1, 0], [ -2, 0, 1], [1, 0, 0]])^n)[1, 1]; seq (a(n), n=0..50); - Alois P. Heinz (heinz(AT)hs-heilbronn.de), Jul 24 2008
|
|
MATHEMATICA
|
<<DiscreteMath`; Do[Print[SeriesTerm[(1 + q^2)/(1-3q+2q^2-q^3), {q, 0, n}]], {n, 0, 50}] (Propper)
a=1; b=2; c=3; lst={}; Do[AppendTo[lst, a+=b]; b+=c; c+=a, {n, 5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 20 2009]
|
|
CROSSREFS
|
Cf. A097551-A097556.
Sequence in context: A054480 A121551 A077850 this_sequence A079490 A026789 A096576
Adjacent sequences: A097547 A097548 A097549 this_sequence A097551 A097552 A097553
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
D. N. Verma (dnverma(AT)math.tifr.res.in), Aug 16 2004
|
|
EXTENSIONS
|
More terms from Ryan Propper (rpropper(AT)stanford.edu), Sep 27 2005
|
|
|
Search completed in 0.002 seconds
|
