%I #54 Oct 22 2024 10:08:01
%S 0,1,3,5,6,8,9,10,12,14,15,16,18,19,21,23,24,26,27,28,30,31,33,35,36,
%T 37,39,41,42,44,45,46,48,50,51,52,54,55,57,59,60,61,63,65,66,68,69,70,
%U 72,73,75,77,78,80,81,82,84,86,87,88,90,91,93
%N a(n) is the sum of first n terms of A001285 (Thue-Morse sequence).
%H Winston de Greef, <a href="/A026430/b026430.txt">Table of n, a(n) for n = 0..10000</a> (first 1001 terms from T. D. Noe)
%H Nicholas John Bizzell-Browning, <a href="https://bura.brunel.ac.uk/handle/2438/29960">LIE scales: Composing with scales of linear intervallic expansion</a>, Ph. D. Thesis, Brunel Univ. (UK, 2024). See p. 143.
%F a(0)=0, a(1)=1, a(2n) = 3n, a(2n+1) = -a(n) + a(n+1) + 3n. - _Ralf Stephan_, Oct 08 2003
%F G.f.: x*(3/(1 - x)^2 - Product_{k>=1} (1 - x^(2^k)))/2. - _Ilya Gutkovskiy_, Apr 03 2019
%t A001285 = Table[ Mod[ Sum[ Mod[ Binomial[n, k], 2], {k, 0, n}], 3], {n, 0, 61}]; Accumulate[A001285] (* _Jean-François Alcover_, Sep 25 2012 *)
%t Join[{0}, Accumulate[1 + ThueMorse /@ Range[0, 100]]] (* _Jean-François Alcover_, Sep 18 2019, from version 10.2 *)
%o (Haskell)
%o a026430 n = a026430_list !! n
%o a026430_list = scanl (+) 0 a001285_list -- _Reinhard Zumkeller_, Jun 28 2013
%o (PARI) first(n)=my(v=vector(n)); v[1]=1; for(k=2,n,v[k]=if(k%2,v[k\2+1]-v[k\2])+k\2*3); concat(0,v) \\ _Charles R Greathouse IV_, May 09 2016
%o (Python)
%o from itertools import accumulate, islice
%o def A026430_gen(): # generator of terms
%o yield from (0,1)
%o blist, s = [1], 1
%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 A026430_list = list(islice(A026430_gen(),30)) # _Chai Wah Wu_, Feb 22 2023
%o (Python)
%o def A026430(n): return n+(n-1>>1)+(n-1&1|(n.bit_count()&1^1)) # _Chai Wah Wu_, Mar 01 2023
%Y Cf. A001285, A356133 (complement).
%Y Cf. A115384.
%K nonn,nice
%O 0,3
%A _Clark Kimberling_