%I #4 May 02 2019 08:50:09

%S 2,6,7,8,10,13,18,22,24,25,28,30,31,32,34,38,40,42,43,46,49,52,54,55,

%T 58,61,66,67,70,72,74,76,78,79,82,85,88,90,94,96,97,100,102,103,106,

%U 109,112,114,115,118,120,121,124,126,128,130,133,136,138,139,142

%N Complement of A325464.

%C These are the numbers 2x and 3x-2 as x ranges through the numbers x>1 in A325464.

%H Clark Kimberling, <a href="/A325465/b325465.txt">Table of n, a(n) for n = 1..10000</a>

%t a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,

%t Map[MemberQ[a, #] &, Select[Flatten[{#/2, (#+2)/3}],

%t IntegerQ]]] &]], {150}]; a (* A325464 *)

%t Complement[Range[Last[a]], a] (* A325465 *)

%t (* _Peter J. C. Moses_, Apr 25 2019 *)

%Y Cf. A325417, A325464.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 01 2019