This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A189636 #5 Mar 30 2012 18:57:25
%S A189636 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 A189636 46,47,49,52,55,56,58,59,61,64,65,67,70,73,74,76,79,82,83,85,86,88,91,
%U A189636 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 A189636 Positions of 0 in A116178; complement of A189637.
%C A189636 See A116178.
%t A189636 t = Nest[Flatten[# /. {0->{0,0,1}, 1->{0,1,1}}] &, {0}, 5] (*A116178*)
%t A189636 f[n_] := t[[n]]
%t A189636 Flatten[Position[t, 0]] (*A189636*)
%t A189636 Flatten[Position[t, 1]] (*A189637*)
%t A189636 s[n_] := Sum[f[i], {i, 1, n}]; s[0] = 0;
%t A189636 Table[s[n], {n, 1, 120}] (*A189638*)
%Y A189636 Cf. A116178, A189637, A189638.
%K A189636 nonn
%O A189636 1,2
%A A189636 _Clark Kimberling_, Apr 24 2011