cp's OEIS Frontend

A360392 a(n) = 2 + A026430(n); complement of A360393.

%I A360392 #20 Mar 01 2023 14:28:57
%S A360392 3,5,7,8,10,11,12,14,16,17,18,20,21,23,25,26,28,29,30,32,33,35,37,38,
%T A360392 39,41,43,44,46,47,48,50,52,53,54,56,57,59,61,62,63,65,67,68,70,71,72,
%U A360392 74,75,77,79,80,82,83,84,86,88,89,90,92,93,95,97,98,100
%N A360392 a(n) = 2 + A026430(n); complement of A360393.
%H A360392 Winston de Greef, <a href="/A360392/b360392.txt">Table of n, a(n) for n = 1..10000</a>
%t A360392 2 + Accumulate[1 + ThueMorse /@ Range[0, 120]]
%o A360392 (Python)
%o A360392 from itertools import islice, accumulate
%o A360392 def A360392_gen(): # generator of terms
%o A360392     yield 3
%o A360392     blist, s = [1], 3
%o A360392     while True:
%o A360392         c = [3-d for d in blist]
%o A360392         blist += c
%o A360392         yield from (s+d for d in accumulate(c))
%o A360392         s += sum(c)
%o A360392 A360392_list = list(islice(A360392_gen(),30)) # _Chai Wah Wu_, Feb 22 2023
%o A360392 (Python)
%o A360392 def A360392(n): return n+2+(n-1>>1)+(n-1&1|(n.bit_count()&1^1)) # _Chai Wah Wu_, Mar 01 2023
%Y A360392 Cf. A026430, A360393-A360405.
%K A360392 nonn,easy
%O A360392 1,1
%A A360392 _Clark Kimberling_, Feb 05 2023