A325428 Complement of A325427.

3, 5, 6, 9, 10, 12, 15, 16, 17, 19, 21, 23, 27, 29, 30, 33, 36, 37, 39, 41, 42, 45, 46, 48, 49, 51, 52, 53, 57, 60, 63, 64, 65, 66, 69, 70, 71, 75, 77, 81, 82, 84, 87, 88, 89, 91, 93, 95, 100, 101, 102, 108, 109, 111, 113, 114, 117, 118, 119, 120, 123, 124

Offset

1,1

Comments

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

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

Crossrefs

Cf. A325417, A325427.

Sequence in context: A187833 A081121 A187837 * A239064 A227455 A237417

Adjacent sequences: A325425 A325426 A325427 * A325429 A325430 A325431

Keyword

nonn,easy

Author

Clark Kimberling, Apr 30 2019

Status

approved