cp's OEIS Frontend

A111967 Inverse of number triangle A101688.

%I A111967 #16 Nov 12 2022 09:42:25
%S A111967 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,
%T A111967 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,
%U A111967 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
%N A111967 Inverse of number triangle A101688.
%C A111967 Row sums are the Fredholm-Rueppel sequence A036987 [conjecture].
%H A111967 R. J. Mathar, <a href="/A111967/a111967.pdf">OEIS A111967</a>
%F A111967 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
%e A111967 Triangle begins
%e A111967 1,
%e A111967 0, 1,
%e A111967 0, -1, 1,
%e A111967 0, 1, -1, 1,
%e A111967 0, 0, 0, -1, 1,
%e A111967 0, -1, 1, 0, -1, 1,
%e A111967 0, 0, 0, 0, 0, -1, 1,
%e A111967 0, 1, -1, 1, 0, 0, -1, 1,
%e A111967 0, 0, 0, 0, 0, 0, 0, -1, 1,
%e A111967 0, 0, 0, -1, 1, 0, 0, 0, -1, 1,
%e A111967 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1,
%e A111967 0, -1, 1, 0, -1, 1, 0, 0, 0, 0, -1, 1,
%e A111967 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1,
%e A111967 0, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, 0, -1, 1,
%e A111967 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1,
%e A111967 0, 1, -1, 1, 0, 0, -1, 1, 0, 0, 0, 0, 0, 0, -1, 1,
%e A111967 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 1
%o A111967 (PARI) T(n, k) = if(binomial(k, n-k)>0, 1, 0); \\ A101688
%o A111967 mrepeat(nn) = matrix(nn, nn, n, k, T(n-1, k-1)); \\ A101688
%o A111967 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
%Y A111967 Cf. A036987, A101688
%K A111967 sign,tabl
%O A111967 0,1
%A A111967 _Paul Barry_, Aug 23 2005