login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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