A325443 Complement of A325442.

3, 6, 7, 9, 12, 15, 19, 21, 24, 25, 27, 30, 31, 33, 35, 39, 42, 43, 45, 48, 51, 54, 55, 57, 60, 63, 66, 67, 69, 71, 73, 75, 78, 79, 81, 84, 87, 91, 93, 96, 97, 99, 102, 103, 105, 108, 111, 114, 115, 117, 120, 121, 123, 127, 129, 132, 135, 138, 139, 141, 143

Offset

1,1

Comments

These are the numbers 2x-1 and 3x as x ranges through the numbers x>1 in A325442.

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, #/3}],
IntegerQ]]] &]], {150}]; a          (* A325442 *)
Complement[Range[Last[a]], a]       (* A325443 *)
(* Peter J. C. Moses, Apr 25 2019 *)

Crossrefs

Cf. A325417, A325442.

Sequence in context: A286802 A297249 A061641 * A085359 A231664 A087916

Adjacent sequences: A325440 A325441 A325442 * A325444 A325445 A325446

Keyword

nonn,easy

Author

Clark Kimberling, May 02 2019

Status

approved