login
This site is supported by donations to The OEIS Foundation.

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 23 13:53 EDT 2019. Contains 326227 sequences. (Running on oeis4.)