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 A325418 #6 May 06 2019 21:26:10 %S A325418 2,4,6,10,14,16,18,22,24,25,26,28,30,34,37,38,40,42,46,52,54,58,61,62, %T A325418 64,66,70,72,78,82,86,88,90,94,96,97,98,100,102,106,109,110,112,114, %U A325418 118,120,124,126,130,133,134,136,138,142,145,146,148,150,151,152 %N A325418 Complement of A325417. %D A325418 These are the numbers 2x and 3x+1 as x ranges through the numbers in A325417. %H A325418 Clark Kimberling, <a href="/A325418/b325418.txt">Table of n, a(n) for n = 1..10000</a> %t A325418 a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, %t A325418 Apply[Or, Map[MemberQ[a, #] &, Select[Flatten[{#/2, (# - 1)/3}], %t A325418 IntegerQ]]] &]], {150}]; a (* A325417 *) %t A325418 Complement[Range[Last[a]], a] (* A325418 *) %t A325418 (* _Peter J. C. Moses_, Apr 23 2019 *) %Y A325418 Cf. A325417. %K A325418 nonn,easy %O A325418 1,1 %A A325418 _Clark Kimberling_, Apr 24 2019