A325418 Complement of A325417.

2, 4, 6, 10, 14, 16, 18, 22, 24, 25, 26, 28, 30, 34, 37, 38, 40, 42, 46, 52, 54, 58, 61, 62, 64, 66, 70, 72, 78, 82, 86, 88, 90, 94, 96, 97, 98, 100, 102, 106, 109, 110, 112, 114, 118, 120, 124, 126, 130, 133, 134, 136, 138, 142, 145, 146, 148, 150, 151, 152

Offset: 1

Author

Clark Kimberling, Apr 24 2019

Keywords

• nonn
• easy

References

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

Links

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

Crossrefs

Cf. A325417.

Programs

Mathematica

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