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,1

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

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

Crossrefs

Cf. A325597.

Sequence in context: A176628 A314390 A314391 * A314392 A314393 A162939

Adjacent sequences: A325595 A325596 A325597 * A325599 A325600 A325601

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2019

Status

approved