|
Search: id:A107334
|
|
|
| A107334 |
|
G.f.: (3-4*x-3*x^2)/(1-2*x-3*x^2+2*x^3). |
|
+0
1
|
|
| 3, 2, 10, 20, 66, 172, 502, 1388, 3938, 11036, 31110, 87452, 246162, 692460, 1948502, 5482060, 15424706, 43398588, 122107174, 343560700, 966645746, 2719759244, 7652334326, 21530654892, 60578794274, 170444884572, 479564842182, 1349306749532, 3796418256466
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
FORMULA
|
a(n)=b1^n+b2^n+b3^n where b1, b2, b3 are the roots of x^3-2*x^2-3*x+2.
Limit a[n]/a[n-1] as n -> infinity is the largest root.
|
|
MATHEMATICA
|
b3 = x /. NSolve[x^3 - 2*x^2 - 3*x + 2 == 0, x][[3]] b2 = x /. NSolve[x^3 - 2*x^2 - 3*x + 2 == 0, x][[2]] b1 = x /. NSolve[x^3 - 2*x^2 - 3*x + 2 == 0, x][[1]] digits = 25 a = Table[2*(b3^n + b1^n + b2^n)/(b3 + b2 + b1), {n, 0, digits}]
|
|
PROGRAM
|
a(n)=if(n<0, 0, polsym(x^3-2*x^2-3*x+2, n)[n+1])
|
|
CROSSREFS
|
Adjacent sequences: A107331 A107332 A107333 this_sequence A107335 A107336 A107337
Sequence in context: A082219 A034461 A070033 this_sequence A096073 A088302 A074199
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 22 2005
|
|
EXTENSIONS
|
Edited by njas, Jun 08 2007
|
|
|
Search completed in 0.002 seconds
|
