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
KEYWORD
AUTHOR
Clark Kimberling, Jul 16 2019
STATUS
approved