|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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 *)
Flatten[Position[da, 1]] (* A325600 *)
Flatten[Position[da, 2]] (* A325601) *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|