A309231 Column 3 of the array at A326662 see Comments.

7, 17, 25, 34, 43, 53, 61, 71, 79, 89, 97, 106, 115, 125, 133, 142, 151, 161, 169, 178, 187, 197, 205, 215, 223, 233, 241, 250, 259, 269, 277, 287, 295, 305, 313, 322, 331, 341, 349, 359, 367, 377, 385, 394, 403, 413, 421, 430, 439, 449, 457, 466, 475, 485

Offset

1,1

Comments

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

Sequence in context: A273745 A263264 A072199 * A183897 A300186 A355680

Adjacent sequences: A309228 A309229 A309230 * A309232 A309233 A309234

Keyword

nonn,easy

Author

Clark Kimberling, Jul 16 2019

Status

approved