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