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

 

Logo


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

Table of n, a(n) for n=0..53.

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.

License Agreements, Terms of Use, Privacy Policy. .

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