cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A324142 This sequence and A324143 are a pair of complementary sequences studied by Bode, Harborth, and Kimberling (2007).

Original entry on oeis.org

2, 5, 4, 9, 13, 15, 18, 21, 23, 26, 30, 33, 36, 39, 42, 46, 49, 52, 55, 57, 60, 63, 66, 69, 72, 75, 78, 81, 84, 87, 89, 92, 95, 98, 101, 104, 107, 110, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147, 150, 153, 156, 159, 162, 165, 168, 171, 174, 178
Offset: 1

Views

Author

N. J. A. Sloane, Feb 20 2019

Keywords

Comments

This pair of sequences is the first example in the Bode, Harborth, and Kimberling (2007) paper. See A022424 for a list of a large number of other pairs of complementary sequences based on the same paper.

Crossrefs

Extensions

a(18) and beyond from Lars Blomberg, Feb 21 2019

A022424 Solution a( ) of the complementary equation a(n) = b(n-1) + b(n-2), where a(0) = 1, a(1) = 2; see Comments.

Original entry on oeis.org

1, 2, 7, 9, 11, 14, 18, 22, 25, 28, 31, 33, 36, 39, 41, 44, 47, 50, 53, 56, 59, 62, 66, 69, 72, 75, 78, 82, 85, 88, 91, 94, 97, 100, 103, 106, 109, 112, 115, 118, 121, 124, 127, 129, 132, 135, 138, 141, 144, 147, 150, 153, 156, 159, 161, 164, 167, 170
Offset: 0

Views

Author

Keywords

Comments

From the Bode-Harborth-Kimberling link:
a(n) = b(n-1) + b(n-2) for n > 2;
b(0) = least positive integer not in {a(0),a(1)};
b(n) = least positive integer not in {a(0),...,a(n),b(0),...,b(n-1)} for n > 1.
Note that (b(n)) is strictly increasing and is the complement of (a(n)).
***
In the following guide to solutions a( ) and b( ) of a(n) = b(n-1) + b(n-2), an asterisk (*) indicates that a( ) differs from the indicated A-sequence in one or two initial terms:
(a(n)) (b(n)) a(0) a(1)
***
Guide to solutions a( ) and b( ) of a(n) = b(n-1) + b(n-2) + b(n-3) for various initial values:
(a(n)) (b(n)) a(0) a(1) a(2)
***
Guide to other complementary equations:
A022427-A022440: a(n) = b(n-1) + b(n-3)
A299531-A299532: a(n) = 2*b(n-1) + b(n-2), a(0) = 1, a(1) = 2
A296220, A299534: a(n) = b(n-1) + 2*b(n-2), a(0) = 1, a(1) = 2
A022437, A299536: a(n) = b(n-1) + b(n-3), a(0) = 1, a(1) = 2, a(2) = 3
A022437, A299538: a(n) = b(n-1) + b(n-3), a(0) = 2, a(1) = 3, a(2) = 4
A022438-A299540: a(n) = b(n-1) + b(n-3), a(0) = 2, a(1) = 3, a(2) = 5
A299541-A299542: a(n) = b(n-1) + b(n-3), a(0) = 2, a(1) = 4, a(2) = 6
A299543-A299544: a(n) = 2*b(n-1) + b(n-2) - b(n-3), a(0) = 1, a(1) = 2, a(2) = 3
A299545-A299546: a(n) = b(n-1) + 2*b(n-2) - b(n-3), a(0) = 1, a(1) = 2, a(2) = 3
A299547: a(n) = b(n-1) + b(n-2) + ... + b(0), a(0) = 1, a(1) = 2, a(2) = 3

Crossrefs

Cf. A055563 (complement), A022425, A299407, A299486-A299494.
Another pair is given in A324142, A324143.

Programs

  • Mathematica
    Fold[Append[#1, Plus @@ Complement[Range[Max@#1 + 3], #1][[{#2, #2 + 1}]]] &, {1, 2}, Range[56]] (* Ivan Neretin, Mar 28 2017 *)

Extensions

Edited by Clark Kimberling, Feb 16 2018
Showing 1-2 of 2 results.