The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A174232 A Chaotic difference sequence based on f(n)=A004001(n): a(n) = If[Mod[f(n), 3] == 1, a(n - 1) - (-1)^n*n, a(n - 1) + (-1)^n*n] 0
 1, 0, -2, -5, -1, -6, -12, -5, -13, -22, -12, -1, -13, -26, -12, -27, -11, -28, -46, -65, -45, -66, -88, -111, -87, -112, -86, -113, -141, -112, -142, -111, -143, -176, -142, -107, -71, -108, -70, -31, 9, -32, 10, 53, 97, 52, 98, 51, 99, 148, 198, 147, 199, 146 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS FORMULA a(n) = If[Mod[A004001(n), 3] == 1, a(n - 1) - (-1)^n*n, a(n - 1) + (-1)^n*n] MATHEMATICA (*A004001*) f[0] = 0; f[1] = 1; f[2] = 1; f[n_] := f[n] = f[f[n - 1]] + f[n - f[n - 1]]; a[0] := 1; a[1] := 0; a[n_] := a[n] = If[Mod[f[n], 3] == 1, a[n - 1] - (-1)^n*n, a[n - 1] + (-1)^n*n]; Table[a[n], { n, 0, 200}] CROSSREFS Cf. A004001, A174218 Sequence in context: A079614 A238387 A084245 * A065224 A325137 A321966 Adjacent sequences:  A174229 A174230 A174231 * A174233 A174234 A174235 KEYWORD uned,sign AUTHOR Roger L. Bagula, Mar 13 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 16 23:46 EDT 2021. Contains 343957 sequences. (Running on oeis4.)