A325430 Complement of A325429.

3, 6, 7, 12, 13, 15, 16, 21, 24, 25, 27, 28, 30, 33, 34, 39, 42, 43, 46, 48, 51, 52, 54, 55, 57, 60, 61, 66, 67, 69, 70, 73, 75, 78, 79, 84, 87, 88, 93, 94, 96, 97, 102, 105, 106, 108, 111, 114, 115, 120, 121, 123, 124, 127, 129, 132, 133, 135, 136, 138, 141

Offset: 1

Author

Clark Kimberling, Apr 30 2019

Keywords

• nonn
• easy

Comments

These are the numbers 3x and floor(3x/2) as x ranges through the numbers x>1 in A325429.

Links

• Clark Kimberling, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A325417, A325429.

Programs

Mathematica

a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{#/3,
If[Mod[#, 3] == 0, (2 #)/3, 0] + If[Mod[#, 3] == 1, 1/3 (1 + 2 #), 0]}],
IntegerQ || # == 0]]] &]], {150}]; a  (* A325429 *)
Complement[Range[Last[a]], a]         (* A325430 *)
(* Peter J. C. Moses, Apr 25 2019 *)