cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A325422 Complement of A077477.

This page as a plain text file.
%I A325422 #12 Jul 09 2019 11:57:46
%S A325422 3,4,5,7,13,17,19,21,23,25,28,29,31,33,34,37,41,43,45,46,49,53,55,61,
%T A325422 65,67,71,73,77,79,81,82,85,89,91,95,97,101,103,105,106,109,113,115,
%U A325422 117,118,119,121,125,127,129,133,137,139,141,142,145,149,151,153
%N A325422 Complement of A077477.
%C A325422 These are the numbers 2x + 1 and 3x + 1 as x ranges through the numbers in A077477.
%H A325422 Clark Kimberling, <a href="/A325422/b325422.txt">Table of n, a(n) for n = 1..10000</a>
%t A325422 a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,
%t A325422 Map[MemberQ[a, #] &, Select[Flatten[{(# - 1)/3, (# - 1)/2}],
%t A325422 IntegerQ]]] &]], {150}]; a;     (* A077477 *)
%t A325422 Complement[Range[Last[a]], a];  (* A325422 *)
%t A325422 (* _Peter J. C. Moses_, Apr 23 2019 *)
%Y A325422 Cf. A325417, A077477.
%K A325422 nonn,easy
%O A325422 1,1
%A A325422 _Clark Kimberling_, Apr 26 2019