cp's OEIS Frontend

A360393 Complement of A360392.

%I A360393 #23 Mar 27 2023 22:35:42
%S A360393 1,2,4,6,9,13,15,19,22,24,27,31,34,36,40,42,45,49,51,55,58,60,64,66,
%T A360393 69,73,76,78,81,85,87,91,94,96,99,103,106,108,112,114,117,121,124,126,
%U A360393 129,133,135,139,142,144,148,150,153,157,159,163,166,168,171,175
%N A360393 Complement of A360392.
%H A360393 Winston de Greef, <a href="/A360393/b360393.txt">Table of n, a(n) for n = 1..5000</a>
%F A360393 A360393(n) = A356133(n-2) + 2 for n>=3
%t A360393 v = 2 + Accumulate[1 + ThueMorse /@ Range[0, 200]]; (* A360392 *)
%t A360393 Complement[Range[Max[v]], v]    (* A360393 *)
%o A360393 (Python)
%o A360393 from itertools import islice
%o A360393 def A360393_gen(): # generator of terms
%o A360393     yield from (1,2)
%o A360393     blist, s = [1], 3
%o A360393     while True:
%o A360393         c = [3-d for d in blist]
%o A360393         blist += c
%o A360393         for d in c:
%o A360393             yield from range(s+1,s:=s+d)
%o A360393 A360393_list = list(islice(A360393_gen(),30)) # _Chai Wah Wu_, Feb 22 2023
%o A360393 (PARI) a(n) = if(n < 3, [1, 2][n], 3*n - 5 - hammingweight(n-3)%2) \\ _Winston de Greef_, Mar 27 2023
%Y A360393 Cf. A026430, A360392-A360405.
%K A360393 nonn,easy
%O A360393 1,2
%A A360393 _Clark Kimberling_, Feb 05 2023