A325463 Complement of A325462.

2, 6, 8, 10, 11, 14, 18, 20, 24, 26, 30, 32, 34, 35, 38, 42, 44, 46, 47, 50, 54, 56, 58, 62, 65, 66, 68, 72, 74, 78, 80, 82, 83, 86, 90, 92, 96, 98, 102, 104, 106, 107, 110, 114, 116, 118, 119, 120, 122, 126, 128, 134, 138, 140, 142, 143, 146, 150, 152, 154

Offset

1,1

Comments

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

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       (* A325462 *)
Complement[Range[Last[a]], a]    (* A325463 *)
(* Peter J. C. Moses, Apr 25 2019 *)

Crossrefs

Cf. A325417, A325462.

Sequence in context: A166270 A129459 A028772 * A121744 A336986 A198832

Adjacent sequences: A325460 A325461 A325462 * A325464 A325465 A325466

Keyword

nonn,easy

Author

Clark Kimberling, May 01 2019

Status

approved