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

Author

Clark Kimberling, Jul 16 2019

Keywords

• nonn
• tabl
• easy

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

Crossrefs

Cf. A309157.

Programs

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 *)