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