|
| |
|
|
A143056
|
|
The real part of complex sequence: a(n)=(1+I)*a(n-1)+a(n-1).
|
|
0
| |
|
|
0, 1, 1, 1, 0, -3, -9, -19, -32, -43, -39, 5, 128, 377, 783, 1305, 1728, 1513, -367, -5495, -15744, -32267, -53177, -69371, -58464, 21693, 235305, 656909, 1328896, 2165489, 2781855
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
COMMENTS
| The ratio real absolute value approaches:1.7000157758867898
|
|
|
FORMULA
| a(n)=(1+I)*a(n-1)+a(n-1); a(n)_out=realpart(a(n)).
G.f.: x^2*(1-x-x^2)/(1-2x+2x^3+x^4). a(n)= 2*a(n-1) -2*a(n-3) -a(n-4). [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 24 2008]
|
|
|
EXAMPLE
| The imaginary part is:
{0, 0, 1, 2, 4, 6, 7, 4, -8, -36, -87, -162, -244, -278, -145, 360,
1520, 3608, 6641, 9882, 11028, 5166, -16073, -64084, -149528, -272076,
-399911, -436682, -179684, 712530, 2698335}
|
|
|
MATHEMATICA
| Clear[a, n]; a[0] = 0; a[1] = 1; a[n_] := a[n] = (1+I)*a[n - 1] + a[n - 2]; Table[Re[a[n]], {n, 0, 30}]
|
|
|
CROSSREFS
| Sequence in context: A029479 A014869 A018495 * A194139 A194115 A066506
Adjacent sequences: A143053 A143054 A143055 * A143057 A143058 A143059
|
|
|
KEYWORD
| uned,sign
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 13 2008
|
| |
|
|
