A325418 Complement of A325417.

2, 4, 6, 10, 14, 16, 18, 22, 24, 25, 26, 28, 30, 34, 37, 38, 40, 42, 46, 52, 54, 58, 61, 62, 64, 66, 70, 72, 78, 82, 86, 88, 90, 94, 96, 97, 98, 100, 102, 106, 109, 110, 112, 114, 118, 120, 124, 126, 130, 133, 134, 136, 138, 142, 145, 146, 148, 150, 151, 152

Offset

1,1

References

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

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

Crossrefs

Cf. A325417.

Sequence in context: A280862 A370654 A213475 * A075574 A104692 A066755

Adjacent sequences: A325415 A325416 A325417 * A325419 A325420 A325421

Keyword

nonn,easy

Author

Clark Kimberling, Apr 24 2019

Status

approved