|
Search: id:A115113
|
|
|
| A115113 |
|
a(n) = Abs[(2/5)*(-1(-4)^n)-(3/5)*(4+(-4)^n)*UnitStep[ -1+n]]. |
|
+0
1
|
|
| 2, 6, 10, 54, 202, 822, 3274, 13110, 52426, 209718, 838858, 3355446, 13421770, 53687094, 214748362, 858993462, 3435973834, 13743895350, 54975581386, 219902325558, 879609302218, 3518437208886, 14073748835530, 56294995342134
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
MATHEMATICA
|
g0[n_] = 2 - Sum[(-1)^(i + 1)/2^(2*i), {i, 0, n}] f[n]=ZTransform[g0[n], n, x] g[n_] = InverseZTransform[f[1/x], x, n] a1 = Table[Abs[g[n]], {n, 1, 25}]
|
|
CROSSREFS
|
Adjacent sequences: A115110 A115111 A115112 this_sequence A115114 A115115 A115116
Sequence in context: A067868 A083524 A095107 this_sequence A093880 A080397 A048782
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 06 2006
|
|
|
Search completed in 0.002 seconds
|
