A287477 -id:A287477 - cp's OEIS frontend

A287475 a(0) = 0; a(1) = 1; a(2n) = a(n), a(2n+1) = a(n-a(n)) + a(n-a(n+1)).

0, 1, 1, 0, 1, 2, 0, 1, 1, 1, 2, 2, 0, 2, 1, 0, 1, 2, 1, 2, 2, 2, 2, 3, 0, 2, 2, 2, 1, 3, 0, 1, 1, 1, 2, 1, 1, 3, 2, 4, 2, 2, 2, 4, 2, 4, 3, 5, 0, 2, 2, 6, 2, 0, 2, 4, 1, 4, 3, 5, 0, 3, 1, 0, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 3, 3, 2, 3, 4, 4, 2, 4, 2, 8, 2, 4, 4, 6, 2, 4, 4, 4, 3, 6, 5, 7, 0, 3, 2, 10, 2

Offset: 0

Ilya Gutkovskiy, May 25 2017

nonn

A variation on Hofstadter's Q-sequence and Stern's diatomic sequence.

Michael Gilleland, Some Self-Similar Integer Sequences
Eric Weisstein's World of Mathematics, Stern's Diatomic Series
Eric Weisstein's World of Mathematics, Hofstadter's Q-Sequence
Index entries for sequences related to Stern's sequences
Index entries for Hofstadter-type sequences

Cf. A002487, A005185, A287476, A287477.

a[0] = 0; a[1] = 1; a[n_] := If[EvenQ[n], a[n/2], a[(n - 1)/2 - a[(n - 1)/2]] + a[(n - 1)/2 - a[(n + 1)/2]]]; Table[a[n], {n, 0, 100}]

A287476 a(0) = a(1) = 1; a(2n) = a(n-a(n)), a(2n+1) = a(n-a(n)) + a(n-a(n+1)).

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 2, 2, 3, 2, 3, 2, 3, 2, 4, 1, 3, 1, 3, 2, 4, 2, 5, 2, 5, 2, 5, 2, 4, 3, 5, 4, 7, 2, 3, 3, 7, 1, 4, 1, 2, 3, 6, 2, 5, 1, 5, 2, 5, 2, 7, 2, 6, 2, 7, 2, 4, 5, 7, 5, 10, 2, 7, 2, 7, 2, 7, 4, 9, 4, 8, 7, 11, 3, 6, 7, 9, 3, 4, 4, 5, 4, 5, 4, 7, 7, 9, 3, 7, 1, 3, 5, 7, 3, 8, 1, 7, 2, 7, 2

Offset: 0

Ilya Gutkovskiy, May 25 2017

nonn

A variation on Hofstadter's Q-sequence and Stern's diatomic sequence.

Eric Weisstein's World of Mathematics, Stern's Diatomic Series
Eric Weisstein's World of Mathematics, Hofstadter's Q-Sequence
Index entries for sequences related to Stern's sequences
Index entries for Hofstadter-type sequences

Cf. A002487, A005185, A287475, A287477.

a[0] = 1; a[1] = 1; a[n_] := If[EvenQ[n], a[n/2 - a[n/2]], a[(n - 1)/2 - a[(n - 1)/2]] + a[(n - 1)/2 - a[(n + 1)/2]]]; Table[a[n], {n, 0, 100}]

A287597 a(0) = 0, a(1) = 1; a(2n) = n - a(a(n)), a(2n+1) = a(a(n)) + a(a(n+1)).

Original entry on oeis.org

0, 1, 0, 1, 2, 1, 2, 1, 4, 1, 4, 1, 6, 1, 6, 3, 6, 3, 8, 3, 8, 3, 10, 3, 10, 3, 12, 3, 12, 3, 14, 3, 14, 3, 16, 5, 14, 5, 18, 5, 16, 5, 20, 5, 18, 5, 22, 5, 20, 5, 24, 7, 20, 7, 26, 7, 22, 7, 28, 7, 24, 7, 30, 7, 26, 7, 32, 7, 28, 7, 34, 7, 30, 7, 36, 9, 30, 9, 38, 7, 34, 7, 40, 9, 34, 9

Offset: 0

Ilya Gutkovskiy, May 27 2017

nonn

A variation on Hofstadter's G-sequence and Stern's diatomic sequence.

Eric Weisstein's World of Mathematics, Stern's Diatomic Series
Eric Weisstein's World of Mathematics, Hofstadter G-Sequence
Index entries for sequences related to Stern's sequences
Index entries for Hofstadter-type sequences

Cf. A002487, A005206, A046698, A287475, A287476, A287477.

a[0] = 0; a[1] = 1; a[n_] := If[EvenQ[n], n/2 - a[a[n/2]], a[a[(n - 1)/2]] + a[a[(n + 1)/2]]]; Table[a[n], {n, 0, 85}]

a(2*n) + a(2*n+1) + a(2*n+2) = 2*n + 1 (from definition).

A287601 a(0) = a(1) = 1; a(2n) = n - a(a(n)), a(2n+1) = a(a(n)) + a(n-a(n)).

Original entry on oeis.org

1, 1, 0, 2, 1, 1, 3, 1, 3, 3, 4, 2, 4, 4, 6, 4, 6, 3, 7, 5, 9, 4, 11, 3, 11, 4, 12, 4, 11, 6, 14, 3, 13, 7, 15, 8, 17, 3, 18, 7, 17, 5, 20, 4, 20, 4, 21, 11, 22, 6, 24, 5, 22, 10, 26, 4, 26, 5, 26, 6, 24, 12, 29, 13, 28, 9, 32, 13, 30, 9, 32, 7, 33, 8, 35, 17, 31, 16, 38, 14, 37, 6, 40, 18, 33, 20

Offset: 0

Ilya Gutkovskiy, May 27 2017

nonn

A variation on Hofstadter's G-sequence and Hofstadter-Conway $10000 sequence.

Eric Weisstein's World of Mathematics, Hofstadter G-Sequence
Eric Weisstein's World of Mathematics, Hofstadter-Conway 10000-Dollar Sequence
Index entries for Hofstadter-type sequences

Cf. A004001, A005206, A287475, A287476, A287477, A287597.

a[0] = 1; a[1] = 1; a[n_] := If[EvenQ[n], n/2 - a[a[n/2]], a[a[(n - 1)/2]] + a[(n - 1)/2 - a[(n - 1)/2]]]; Table[a[n], {n, 0, 85}]

cp's OEIS Frontend

A287475 a(0) = 0; a(1) = 1; a(2n) = a(n), a(2n+1) = a(n-a(n)) + a(n-a(n+1)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A287476 a(0) = a(1) = 1; a(2n) = a(n-a(n)), a(2n+1) = a(n-a(n)) + a(n-a(n+1)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A287597 a(0) = 0, a(1) = 1; a(2n) = n - a(a(n)), a(2n+1) = a(a(n)) + a(a(n+1)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A287601 a(0) = a(1) = 1; a(2n) = n - a(a(n)), a(2n+1) = a(a(n)) + a(n-a(n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

cp's OEIS Frontend

A287475 a(0) = 0; a(1) = 1; a(2*n) = a(n), a(2*n+1) = a(n-a(n)) + a(n-a(n+1)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A287476 a(0) = a(1) = 1; a(2*n) = a(n-a(n)), a(2*n+1) = a(n-a(n)) + a(n-a(n+1)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A287597 a(0) = 0, a(1) = 1; a(2*n) = n - a(a(n)), a(2*n+1) = a(a(n)) + a(a(n+1)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A287601 a(0) = a(1) = 1; a(2*n) = n - a(a(n)), a(2*n+1) = a(a(n)) + a(n-a(n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A287475 a(0) = 0; a(1) = 1; a(2n) = a(n), a(2n+1) = a(n-a(n)) + a(n-a(n+1)).

A287476 a(0) = a(1) = 1; a(2n) = a(n-a(n)), a(2n+1) = a(n-a(n)) + a(n-a(n+1)).

A287597 a(0) = 0, a(1) = 1; a(2n) = n - a(a(n)), a(2n+1) = a(a(n)) + a(a(n+1)).

A287601 a(0) = a(1) = 1; a(2n) = n - a(a(n)), a(2n+1) = a(a(n)) + a(n-a(n)).