This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A307721 a(n) = x(y(n)) - y(x(n)) where x = A302128 and y = A005350. 1
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 1, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1 COMMENTS A chaotic sequence based on a definition by A. Fraenkel. Fibonacci numbers determine the boundaries of the generations. LINKS Robert Israel, Table of n, a(n) for n = 1..10000 Altug Alkan, Line plot of a(n) for n <= 28657 A. S. Fraenkel, Iterated floor function, algebraic numbers, discrete chaos, Beatty subsequences, semigroups, Trans. Amer. Math. Soc., Volume 341, Number 2 (1994). Rémy Sigrist, C program for A307721 MAPLE x:= proc(n) option remember;   procname(procname(n-2)) + procname(n-procname(n-1)) end proc: x(1):= 1: x(2):= 1: x(3):= 1: y:= proc(n) option remember;   procname(procname(n-1)) + procname(n-procname(n-1)) end proc: y(1):= 1: y(2):= 1: y(3):= 1: map(x@y-y@x, [\$1..100]); # Robert Israel, Apr 25 2019 MATHEMATICA x[1]=x[2]=x[3]=y[1]=y[2]=y[3]=1; x[n_] := x[n] = x[x[n-2]] + x[n - x[n - 1]]; y[n_] := y[n] = y[y[n-1]] + y[n - y[n-1]]; a[n_] := x[y[n]] - y[x[n]]; Array[a, 100] (* Giovanni Resta, Apr 24 2019 *) PROG (PARI) x=vector(200); for(n=1, 3, x[n] = 1); for(n=4, #x, x[n] = x[x[n-2]] + x[n-x[n-1]]); y=vector(200); for(n=1, 3, y[n] = 1); for(n=4, #y, y[n] = y[y[n-1]] + y[n-y[n-1]]); vector(200, n, x[y[n]]-y[x[n]]) (C) See Links section. CROSSREFS Cf. A005350, A302128. Sequence in context: A000004 A297046 A248805 * A023976 A025469 A025466 Adjacent sequences:  A307718 A307719 A307720 * A307722 A307723 A307724 KEYWORD sign AUTHOR Altug Alkan, Apr 24 2019 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 August 23 13:53 EDT 2019. Contains 326227 sequences. (Running on oeis4.)