A325420 Complement of A325419.

3, 5, 6, 9, 12, 15, 17, 21, 23, 24, 27, 29, 30, 33, 37, 39, 41, 42, 45, 48, 51, 53, 54, 57, 60, 63, 65, 66, 69, 71, 73, 75, 77, 78, 81, 84, 87, 89, 93, 95, 96, 99, 101, 102, 105, 108, 111, 113, 114, 117, 119, 120, 123, 125, 129, 132, 135, 137, 138, 141, 145

Offset

1,1

Comments

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

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

Crossrefs

Cf. A325417, A325419.

Sequence in context: A285377 A192577 A236343 * A168063 A039873 A096394

Adjacent sequences: A325417 A325418 A325419 * A325421 A325422 A325423

Keyword

nonn,easy

Author

Clark Kimberling, Apr 28 2019

Status

approved