|
| |
|
|
A115335
|
|
a(n) = 2*Abs[(1/2)*(-1+(-2)^n)-(2/3)*(2+(-2)^n)*UnitStep[ -1+n]].
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| 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
| Sequence in context: A197326 A112411 A021970 * A054586 A112752 A101035
Adjacent sequences: A115332 A115333 A115334 * A115336 A115337 A115338
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 06 2006
|
| |
|
|
