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 A129721 #3 Mar 30 2012 17:36:14 %S A129721 1,2,2,1,4,1,4,3,1,8,4,1,8,8,4,1,16,12,5,1,16,20,13,5,1,32,32,18,6,1, %T A129721 32,48,38,19,6,1,64,80,56,25,7,1,64,112,104,63,26,7,1,128,192,160,88, %U A129721 33,8,1,128,256,272,192,96,34,8,1,256,448,432,280,129,42,9,1,256,576,688,552 %N A129721 Triangle read by rows: T(n,k) is the number of Fibonacci binary words of length n and having k 0's in even positions (0<=k<=floor(n/2)). A Fibonacci binary word is a binary word having no 00 subword. %C A129721 Row n has 1+floor(n/2) terms. Row sums are the Fibonacci numbers (A000045). T(2n+1,k)=T(2n,k)+T(2n-1,k) (n>=1). T(2n,k)=A129719(2n,k). Sum(k*T(n,k), 0<=k<=floor(n/2))=A129722(n). %F A129721 G.f.=G(t,z)=(1+2z-tz^3)/[1-(2+t)z^2+tz^4]. The trivariate generating function H(t,s,z), where t marks number of 0's in odd position and s marks number of 0's in even position, is given by H(t,s,z)=[1+(1+t)z-tsz^3]/[1-(1+t+s)z^2+tsz^4]. %e A129721 T(6,2)=4 because we have 111010, 101110, 101011 and 011010. %e A129721 Triangle starts: %e A129721 1; %e A129721 2; %e A129721 2,1; %e A129721 4,1; %e A129721 4,3,1; %e A129721 8,4,1; %e A129721 8,8,4,1; %p A129721 G:=(1+2*z-t*z^3)/(1-2*z^2-t*z^2+t*z^4): Gser:=simplify(series(G,z=0,21)): for n from 0 to 18 do P[n]:=sort(coeff(Gser,z,n)) od: for n from 0 to 18 do seq(coeff(P[n],t,j),j=0..floor(n/2)) od; # yields sequence in triangular form %Y A129721 Cf. A000045, A129719, A129722. %K A129721 nonn,tabf %O A129721 0,2 %A A129721 _Emeric Deutsch_, May 13 2007