login
Positions of 0 in A116178; complement of A189637.
7

%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