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,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 *)
(* Peter J. C. Moses, Apr 25 2019 *)

Crossrefs

Cf. A325417, A325539.

Sequence in context: A107605 A109314 A319828 * A102529 A186621 A002159

Adjacent sequences: A325537 A325538 A325539 * A325541 A325542 A325543

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2019

Status

approved