A326664 Column 3 of the array at A326661 see Comments.

7, 16, 25, 35, 43, 52, 61, 71, 79, 88, 97, 107, 115, 124, 133, 142, 151, 160, 169, 179, 187, 196, 205, 215, 223, 232, 241, 251, 259, 268, 277, 286, 295, 304, 313, 323, 331, 340, 349, 359, 367, 376, 385, 395, 403, 412, 421, 430, 439, 448, 457, 467, 475, 484

Offset

1,1

Comments

This is the sequence (c(n)) defined by the complementary equation c(n) = a(n) + b(3n), with initial value a(1) = 1. See A326661. Conjecture: 9n-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 = 3;
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. A326661.

Sequence in context: A017245 A052221 A119461 * A028560 A190530 A345071

Adjacent sequences: A326661 A326662 A326663 * A326665 A326666 A326667

Keyword

nonn,easy

Author

Clark Kimberling, Jul 16 2019

Status

approved