A325430 Complement of A325429.

3, 6, 7, 12, 13, 15, 16, 21, 24, 25, 27, 28, 30, 33, 34, 39, 42, 43, 46, 48, 51, 52, 54, 55, 57, 60, 61, 66, 67, 69, 70, 73, 75, 78, 79, 84, 87, 88, 93, 94, 96, 97, 102, 105, 106, 108, 111, 114, 115, 120, 121, 123, 124, 127, 129, 132, 133, 135, 136, 138, 141

Offset

1,1

Comments

These are the numbers 3x and floor(3x/2) as x ranges through the numbers x>1 in A325429.

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,
If[Mod[#, 3] == 0, (2 #)/3, 0] + If[Mod[#, 3] == 1, 1/3 (1 + 2 #), 0]}],
IntegerQ || # == 0]]] &]], {150}]; a  (* A325429 *)
Complement[Range[Last[a]], a]         (* A325430 *)
(* Peter J. C. Moses, Apr 25 2019 *)

Crossrefs

Cf. A325417, A325429.

Sequence in context: A332812 A152829 A379655 * A104463 A072757 A295897

Adjacent sequences: A325427 A325428 A325429 * A325431 A325432 A325433

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2019

Status

approved