|
Search: id:A123012
|
|
|
| A123012 |
|
G.f.: 1/(1-2*x-21*x^2). |
|
+0
1
|
|
| 1, 2, 25, 92, 709, 3350, 21589, 113528, 680425, 3744938, 21778801, 122201300, 701757421, 3969742142, 22676390125, 128717365232, 733638923089, 4170342516050, 23747102416969, 135071397670988, 768831946098325, 4374163243287398, 24893797354639621, 141645022818314600
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MATHEMATICA
|
l = 2; m = 7; k = 3; p[x_] := -k/m - l*x/m + x^2 q[x_] := ExpandAll[x^2*p[1/x]] Table[ SeriesCoefficient[Series[x/q[x], {x, 0, 30}], n]*m^(n - 1), {n, 0, 30}] f[n_Integer] = Module[{a}, a[n] /. RSolve[{a[n] == l*a[n - 1]/m + k*a[n - 2]/m, a[0] == 0, a[1] == 1}, a[n], n][[1]] // FullSimplify] a = Table[Rationalize[N[f[n]*m^(n - 1), 100], 0], {n, 0, 25}]
|
|
CROSSREFS
|
Cf. A002532.
Sequence in context: A038834 A041071 A062933 this_sequence A080515 A009381 A063264
Adjacent sequences: A123009 A123010 A123011 this_sequence A123013 A123014 A123015
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 23 2006
|
|
EXTENSIONS
|
Edited by njas, Sep 26 2006
|
|
|
Search completed in 0.002 seconds
|
