A325465 Complement of A325464.

2, 6, 7, 8, 10, 13, 18, 22, 24, 25, 28, 30, 31, 32, 34, 38, 40, 42, 43, 46, 49, 52, 54, 55, 58, 61, 66, 67, 70, 72, 74, 76, 78, 79, 82, 85, 88, 90, 94, 96, 97, 100, 102, 103, 106, 109, 112, 114, 115, 118, 120, 121, 124, 126, 128, 130, 133, 136, 138, 139, 142

Offset

1,1

Comments

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

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

Crossrefs

Cf. A325417, A325464.

Sequence in context: A343719 A028735 A267541 * A047553 A139418 A190212

Adjacent sequences: A325462 A325463 A325464 * A325466 A325467 A325468

Keyword

nonn,easy

Author

Clark Kimberling, May 01 2019

Status

approved