A325422 Complement of A077477.

3, 4, 5, 7, 13, 17, 19, 21, 23, 25, 28, 29, 31, 33, 34, 37, 41, 43, 45, 46, 49, 53, 55, 61, 65, 67, 71, 73, 77, 79, 81, 82, 85, 89, 91, 95, 97, 101, 103, 105, 106, 109, 113, 115, 117, 118, 119, 121, 125, 127, 129, 133, 137, 139, 141, 142, 145, 149, 151, 153

Offset

1,1

Comments

These are the numbers 2x + 1 and 3x + 1 as x ranges through the numbers in A077477.

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

Crossrefs

Cf. A325417, A077477.

Sequence in context: A102607 A360688 A079463 * A190213 A216574 A216561

Adjacent sequences: A325419 A325420 A325421 * A325423 A325424 A325425

Keyword

nonn,easy

Author

Clark Kimberling, Apr 26 2019

Status

approved