A325420 Complement of A325419.

3, 5, 6, 9, 12, 15, 17, 21, 23, 24, 27, 29, 30, 33, 37, 39, 41, 42, 45, 48, 51, 53, 54, 57, 60, 63, 65, 66, 69, 71, 73, 75, 77, 78, 81, 84, 87, 89, 93, 95, 96, 99, 101, 102, 105, 108, 111, 113, 114, 117, 119, 120, 123, 125, 129, 132, 135, 137, 138, 141, 145

Offset: 1

Author

Clark Kimberling, Apr 28 2019

Keywords

• nonn
• easy

Comments

These are the numbers 2x+1 and 3x as x ranges through the numbers in A325419.

Links

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

Crossrefs

Cf. A325417, A325419.

Programs

Mathematica

a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
Map[MemberQ[a, #] &, Select[Flatten[{#/3, (# - 1)/2}],
IntegerQ]]] &]], {150}]; a;     (* A325419 *)
Complement[Range[Last[a]], a];  (* A325420 *)
(* Peter J. C. Moses, Apr 23 2019 *)