|
%I #19 Dec 08 2023 15:41:56
%S 0,1,0,1,2,3,2,1,2,1,0,1,2,3,4,5,4,5,4,5,6,5,4,3,4,5,4,5,4,3,2,3,2,1,
%T 0,1,2,3,4,5,6,7,6,7,8,7,8,9,10,9,8,9,8,9,10,11,10,11,10,11,10,9,10,
%U 11,10,9,8,7,8,9,10,9,10,11,10,9,10,9,10,9,10
%N a(n) is the number of zeros minus the number of ones among the first n terms of A076478.
%C A036799 gives the positions of zeros in this sequence.
%C Between two zeros, the graph of the sequence looks like a Takagi (or blancmange) curve.
%H Rémy Sigrist, <a href="/A277914/b277914.txt">Table of n, a(n) for n = 0..10000</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Blancmange_curve">Blancmange curve</a>
%F a(n) = Sum_{i=0..n-1} (-1)^A076478(i) for any n>=0.
%t Join[{0},Flatten[Array[Accumulate[Flatten[Tuples[{1,-1},#]]]&,5]]] (* _Paolo Xausa_, Dec 08 2023 *)
%Y Cf. A076478, A036799.
%K nonn,base
%O 0,5
%A _Rémy Sigrist_, Nov 03 2016
|
