This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A325598 #8 Dec 15 2024 16:28:31
%S A325598 5,8,11,16,20,25,29,34,38,41,44,49,53,56,61,65,68,71,76,80,83,88,92,
%T A325598 95,98,103,107,110,115,119,124,128,133,137,140,143,148,152,155,160,
%U A325598 164,169,173,176,179,184,188,191,196,200,205,209,214,218,221,224,229
%N A325598 Complement of A325597.
%C A325598 These are the numbers 2a(m) + a(m-1) for a(m)=A325597(m), m >= 1 .
%H A325598 Clark Kimberling, <a href="/A325598/b325598.txt">Table of n, a(n) for n = 1..10000</a>
%t A325598 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 *)
%t A325598 c = Complement[Range[Last[a]], a] (* A325598 *)
%t A325598 da = Differences[a] (* A325599 *)
%t A325598 Flatten[Position[da, 1]] (* A325600 *)
%t A325598 Flatten[Position[da, 2]] (* A325601 *)
%t A325598 (* _Peter J. C. Moses_, May 07 2019 *)
%Y A325598 Cf. A325597.
%K A325598 nonn,easy
%O A325598 1,1
%A A325598 _Clark Kimberling_, May 10 2019