|
Search: id:A115164
|
|
|
| A115164 |
|
a(n) = 2*Abs[(3/10)*(-1(-4)^n)-(2/5)*(4+(-4)^n)*UnitStep[ -1+n]]. |
|
+0
1
|
|
| 3, 7, 9, 55, 201, 823, 3273, 13111, 52425, 209719, 838857, 3355447, 13421769, 53687095, 214748361, 858993463, 3435973833, 13743895351, 54975581385, 219902325559, 879609302217, 3518437208887, 14073748835529, 56294995342135
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
MATHEMATICA
|
g0[n_] = 3/2 - Sum[(-1)^(i + 1)/2^(2*i + 1), {i, 0, n} f[n]=ZTransform[g0[n], n, x] g[n_] = InverseZTransform[f[1/x], x, n] a1 = Table[2*Abs[g[n]], {n, 1, 25}]
|
|
CROSSREFS
|
Sequence in context: A128052 A033681 A074339 this_sequence A088801 A003033 A087147
Adjacent sequences: A115161 A115162 A115163 this_sequence A115165 A115166 A115167
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 06 2006
|
|
|
Search completed in 0.002 seconds
|
