A325441 Complement of A325440.

2, 5, 7, 8, 11, 17, 19, 23, 25, 26, 27, 29, 31, 35, 38, 39, 41, 43, 44, 47, 53, 55, 59, 62, 63, 65, 67, 71, 73, 79, 83, 89, 91, 95, 97, 98, 99, 101, 103, 107, 110, 111, 113, 115, 119, 121, 125, 127, 131, 134, 135, 137, 139, 143, 146, 147, 149, 151, 152, 153

Offset

1,1

Comments

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

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

Crossrefs

Cf. A325417, A325440.

Sequence in context: A370856 A216565 A285938 * A192111 A294635 A362591

Adjacent sequences: A325438 A325439 A325440 * A325442 A325443 A325444

Keyword

nonn,easy

Author

Clark Kimberling, May 02 2019

Status

approved