A325540 Complement of A325539.

3, 5, 8, 9, 13, 14, 15, 20, 21, 23, 25, 32, 33, 35, 37, 38, 39, 45, 49, 50, 53, 55, 56, 57, 59, 61, 63, 68, 69, 73, 74, 80, 81, 83, 85, 86, 87, 89, 92, 93, 95, 97, 103, 104, 105, 109, 110, 117, 121, 122, 125, 128, 129, 131, 133, 134, 135, 140, 141, 143, 145

Offset: 1

Author

Clark Kimberling, May 07 2019

Keywords

• nonn
• easy

Comments

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

Links

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

Crossrefs

Cf. A325417, A325539.

Programs

Mathematica

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