login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%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