%I #11 May 09 2019 12:22:58
%S 3,5,6,9,12,15,17,21,23,24,27,29,30,33,37,39,41,42,45,48,51,53,54,57,
%T 60,63,65,66,69,71,73,75,77,78,81,84,87,89,93,95,96,99,101,102,105,
%U 108,111,113,114,117,119,120,123,125,129,132,135,137,138,141,145
%N Complement of A325419.
%C These are the numbers 2x+1 and 3x as x ranges through the numbers in A325419.
%H Clark Kimberling, <a href="/A325420/b325420.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[{#/3, (# - 1)/2}],
%t IntegerQ]]] &]], {150}]; a; (* A325419 *)
%t Complement[Range[Last[a]], a]; (* A325420 *)
%t (* _Peter J. C. Moses_, Apr 23 2019 *)
%Y Cf. A325417, A325419.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 28 2019
|