A326663 Column 3 of the array at A309157; see Comments.

5, 12, 20, 26, 33, 41, 47, 54, 61, 68, 75, 83, 89, 96, 104, 110, 117, 124, 131, 138, 146, 152, 159, 167, 173, 180, 188, 194, 201, 209, 215, 222, 230, 236, 243, 250, 257, 264, 272, 278, 285, 293, 299, 306, 313, 320, 327, 335, 341, 348, 356, 362, 369, 377, 383

Offset

1,1

Comments

This is the sequence (c(n)) defined by the complementary equation c(n) = a(n) + b(2n), with initial value a(1) = 1. See A309157. Conjecture: 7n-c(n) is in {1,2} for all n.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]);
a = b = c = {}; h = 1; k = 2;
Do[Do[AppendTo[a,
  mex[Flatten[{a, b, c}], Max[Last[a /. {} -> {0}], 1]]];
  AppendTo[b, mex[Flatten[{a, b, c}], Max[Last[b /. {} -> {0}], 1]]], {k}];
  AppendTo[c, a[[h Length[a]/k]] + Last[b]], {150}]; c
(* Peter J. C. Moses, Jul 04 2019 *)

Crossrefs

Cf. A309157.

Sequence in context: A139692 A099192 A047077 * A086570 A366101 A270333

Adjacent sequences: A326660 A326661 A326662 * A326664 A326665 A326666

Keyword

nonn,tabl,easy

Author

Clark Kimberling, Jul 16 2019

Status

approved