A325426 Complement of A325425.

2, 4, 6, 7, 10, 12, 13, 16, 18, 21, 22, 25, 28, 30, 34, 36, 38, 39, 40, 43, 46, 48, 49, 52, 54, 55, 58, 61, 62, 63, 64, 66, 67, 70, 74, 75, 76, 79, 82, 84, 85, 88, 90, 94, 97, 100, 102, 103, 106, 108, 109, 112, 114, 115, 117, 118, 120, 121, 124, 129, 130

Offset

1,1

Comments

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

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

Crossrefs

Cf. A325417, A325425.

Sequence in context: A026144 A353072 A286047 * A227090 A047510 A189030

Adjacent sequences: A325423 A325424 A325425 * A325427 A325428 A325429

Keyword

nonn,easy

Author

Clark Kimberling, Apr 27 2019

Status

approved