%I #5 Mar 30 2012 18:57:25
%S 1,2,4,5,7,10,11,13,14,16,19,20,22,25,28,29,31,32,34,37,38,40,41,43,
%T 46,47,49,52,55,56,58,59,61,64,65,67,70,73,74,76,79,82,83,85,86,88,91,
%U 92,94,95,97,100,101,103,106,109,110,112,113,115,118,119,121,122,124,127,128,130,133,136,137,139,140,142,145,146,148,151,154,155,157,160,163,164,166,167
%N Positions of 0 in A116178; complement of A189637.
%C See A116178.
%t t = Nest[Flatten[# /. {0->{0,0,1}, 1->{0,1,1}}] &, {0}, 5] (*A116178*)
%t f[n_] := t[[n]]
%t Flatten[Position[t, 0]] (*A189636*)
%t Flatten[Position[t, 1]] (*A189637*)
%t s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;
%t Table[s[n], {n, 1, 120}] (*A189638*)
%Y Cf. A116178, A189637, A189638.
%K nonn
%O 1,2
%A _Clark Kimberling_, Apr 24 2011