login
A325598
Complement of A325597.
5
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, May 10 2019
STATUS
approved