OFFSET
0,1
COMMENTS
Row sums are the Fredholm-Rueppel sequence A036987 [conjecture].
LINKS
R. J. Mathar, OEIS A111967
FORMULA
G.f. of k-th column is x^k*if(k=0,1,x*Sum_{j>=0} (-1)^j*x^(-2^(j/2)*(((k+2)/(2*sqrt(2))-(k+1))(-1)^j-(k+2)/(2*sqrt(2))-(k+1))-(k+2))+1-x). - Paul Barry, Jan 30 2007
EXAMPLE
Triangle begins
1,
0, 1,
0, -1, 1,
0, 1, -1, 1,
0, 0, 0, -1, 1,
0, -1, 1, 0, -1, 1,
0, 0, 0, 0, 0, -1, 1,
0, 1, -1, 1, 0, 0, -1, 1,
0, 0, 0, 0, 0, 0, 0, -1, 1,
0, 0, 0, -1, 1, 0, 0, 0, -1, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1,
0, -1, 1, 0, -1, 1, 0, 0, 0, 0, -1, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1,
0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, -1, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1,
0, 1, -1, 1, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, -1, 1,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1
PROG
(PARI) T(n, k) = if(binomial(k, n-k)>0, 1, 0); \\ A101688
mrepeat(nn) = matrix(nn, nn, n, k, T(n-1, k-1)); \\ A101688
lista(nn) = my(m=mrepeat(nn+1), im = 1/m, list = List()); for (n = 1, nn, listput(list, vector(n, k, im[n, k])); ); Vec(list); \\ Michel Marcus, Nov 12 2022
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Paul Barry, Aug 23 2005
STATUS
approved