A325540 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

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

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 *)