|
| |
|
|
A122503
|
|
a(n) = 22*a(n - 2) + 54*a(n - 3) + 38*a(n - 4).
|
|
0
| |
|
|
1, 1, 1, 1, 114, 114, 2600, 8702, 67688, 336176, 2057844, 11381700, 65998216, 374295664, 2144770624, 12230912872, 69904851792, 399120932112, 2279877318224, 13020297192368, 74366215703072, 424726508836448
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
REFERENCES
| R. G. Newton, Scattering Theory of Waves and Particles, McGraw Hill, New York, 1966, Page 557ff.
|
|
|
MATHEMATICA
| a[0] = 1; a[1] = 1; a[2] = 1; a[3] = 1; a[n_] := a[n] = 22*a[n - 2] + 54*a[n - 3] + 38*a[n - 4] Table[a[n], {n, 0, 30}] (* vector Matrix Markov equivalent*) M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {38, 54, 22, 0}}; v[1] = {1, 1, 1, 1}; v[n_] := v[n] = M.v[n - 1] a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
|
CROSSREFS
| Sequence in context: A187703 A180052 A106748 * A076150 A138693 A057440
Adjacent sequences: A122500 A122501 A122502 * A122504 A122505 A122506
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 15 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Serp 17 2006
|
| |
|
|
