|
%I #5 Jul 11 2012 11:30:00
%S 1,1,1,1,0,1,1,1,1,1,1,0,1,0,1,1,0,0,0,0,1,1,1,1,0,1,1,1,1,1,2,1,1,2,
%T 1,1,1,0,1,1,1,1,1,0,1,1,0,0,0,1,1,0,0,0,1,1,0,0,-1,0,1,0,-1,0,0,1,1,
%U 1,1,0,0,1,1,0,0,1,1,1,1,0,1,0,0,0,0,0,0
%N Triangle t(n,m) = A004001(m+1)+A004001(n-m+1)-A004001(n+1) read by rows, 0<=m<=n.
%e 1;
%e 1, 1;
%e 1, 0, 1;
%e 1, 1, 1, 1;
%e 1, 0, 1, 0, 1;
%e 1, 0, 0, 0, 0, 1;
%e 1, 1, 1, 0, 1, 1, 1;
%p A176047 := proc(n,m)
%p A004001(m+1)+A004001(n-m+1)-A004001(n+1) ;
%p end proc:
%p seq(seq(A176047(n,m),m=0..n),n=0..12) ; # _R. J. Mathar_, Jul 11 2012
%K sign,tabl
%O 0,31
%A _Roger L. Bagula_ and _Gary W. Adamson_, Apr 07 2010
%E Mutually compatible definition and terms installed. Erroneous row sums removed. - _R. J. Mathar_, Jul 11 2012
|
