login
A325422
Complement of A077477.
4
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
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
Sequence in context: A102607 A360688 A079463 * A190213 A216574 A216561
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 26 2019
STATUS
approved