A325598 Complement of A325597.

5, 8, 11, 16, 20, 25, 29, 34, 38, 41, 44, 49, 53, 56, 61, 65, 68, 71, 76, 80, 83, 88, 92, 95, 98, 103, 107, 110, 115, 119, 124, 128, 133, 137, 140, 143, 148, 152, 155, 160, 164, 169, 173, 176, 179, 184, 188, 191, 196, 200, 205, 209, 214, 218, 221, 224, 229

Offset: 1

Author

Clark Kimberling, May 10 2019

Keywords

• nonn
• easy

Comments

These are the numbers 2a(m) + a(m-1) for a(m)=A325597(m), m >= 1 .

Links

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

Crossrefs

Cf. A325597.

Programs

Mathematica

mex[list_, start_] := (NestWhile[# + 1 &, start, MemberQ[list, #] &]); a = {1}; Do[AppendTo[a, mex[Rest[2 a] + Most[a], Last[a] + 1]], {60}]; a  (* A325597 *)
c = Complement[Range[Last[a]], a]  (* A325598 *)
da = Differences[a] (* A325599 *)
Flatten[Position[da, 1]] (* A325600 *)
Flatten[Position[da, 2]] (* A325601 *)
(* Peter J. C. Moses, May 07 2019 *)