|
Search: id:A123006
|
|
|
| A123006 |
|
Scaled Recursion, coefficient expansion and Binet for a "Tin mean": Characteristic polynomial :l = 2; m = 11; x^2-l*x/m-1. |
|
+0
1
|
|
| 0, 1, 2, 125, 492, 16109, 91750, 2132689, 15367128, 288789625, 2437001738, 39817548101, 374512306500, 5566947933221, 56449884952942, 786500469825625, 8403437018957232, 111973430886815089, 1240762741067455250
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
l=2; m=3; gives A002534
|
|
REFERENCES
|
Jay Kappraff, Beyond Measure, A Guided Tour Through Nature, Myth and Number, World Scientific, 2002.
|
|
FORMULA
|
l = 2; m = 11; a(n) = l*a(n - 1)/m + a(n - 2) C.F.=x/(1 - 2 x/11 - x^2)
|
|
MATHEMATICA
|
(* coefficient expansion*) l = 2; m = 11; p[x_] := -1 - 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}] (* Binet/ recursion *) f[n_Integer] = Module[{a}, a[n] /. RSolve[{a[n] == l*a[n - 1]/m + a[n - 2], 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. A002534.
Sequence in context: A088055 A065705 A042921 this_sequence A028481 A049659 A064070
Adjacent sequences: A123003 A123004 A123005 this_sequence A123007 A123008 A123009
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Sep 23 2006
|
|
|
Search completed in 0.002 seconds
|
