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

Author

Clark Kimberling, Apr 26 2019

Keywords

• nonn
• easy

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

Crossrefs

Cf. A325417, A077477.

Programs

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 *)