|
Search: id:A115335
|
|
|
| A115335 |
|
a(n) = 2*Abs[(1/2)*(-1+(-2)^n)-(2/3)*(2+(-2)^n)*UnitStep[ -1+n]]. |
|
+0
1
|
|
| 3, 5, 1, 9, 7, 25, 39, 89, 167, 345, 679, 1369, 2727, 5465, 10919, 21849, 43687, 87385, 174759, 349529, 699047, 1398105, 2796199, 5592409, 1118480
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Inverse toral ztransform of odd ratio 2 sum sequence
These sequences were derived to give a period doubling like effect in iteration.
|
|
MATHEMATICA
|
f0[n_] = 3/2 - Sum[(-1)^(i + 1)/(Sqrt[2]^(2*i + 2)), {i, 0, n}] f[x_] = ZTransform[f0[n], n, x] g[n_] = InverseZTransform[f[1/x], x, n] a1 = Table[2*Abs[g[n]], {n, 1, 25}]
|
|
CROSSREFS
|
Adjacent sequences: A115332 A115333 A115334 this_sequence A115336 A115337 A115338
Sequence in context: A065395 A112411 A021970 this_sequence A054586 A112752 A101035
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 06 2006
|
|
|
Search completed in 0.002 seconds
|
