|
%I #19 May 17 2023 09:36:07
%S 0,0,1,0,2,3,0,3,5,9,0,4,7,15,36,0,5,9,22,57,117,0,6,11,30,82,181,411,
%T 0,7,13,39,111,260,632,1452,0,8,15,49,144,355,912,2199,5040,0,9,17,60,
%U 181,467,1257,3158,7593,17829,0,10,19,72,222,597,1673,4357,10920,26706,62870
%N T(n,k)=Number of nondecreasing arrangements of n numbers x(i) in -(n+k-2)..(n+k-2) with the sum of sign(x(i))*2^|x(i)| zero
%C Table starts
%C .....0.....0.....0.....0.....0.....0.....0.....0....0....0...0...0..0..0.0
%C .....1.....2.....3.....4.....5.....6.....7.....8....9...10..11..12.13.14
%C .....3.....5.....7.....9....11....13....15....17...19...21..23..25.27
%C .....9....15....22....30....39....49....60....72...85...99.114.130
%C ....36....57....82...111...144...181...222...267..316..369.426
%C ...117...181...260...355...467...597...746...915.1105.1317
%C ...411...632...912..1257..1673..2166..2742..3407.4167
%C ..1452..2199..3158..4357..5825..7592..9689.12148
%C ..5040..7593.10920.15146.20404.26835.34588
%C .17829.26706.38385.53379.72246.95590
%H R. J. Mathar, <a href="/A187988/b187988.txt">Table of n, a(n) for n = 1..187</a> augmenting an earlier file with 117 entries by _R. H. Hardin_ .
%H R. J. Mathar, <a href="/A187988/a187988.pdf">Background on the recurrent Maple program for the linear diophantine equation</a>
%e Some solutions for n=5 k=3
%e .-3...-6...-5...-3...-3...-6...-4...-4...-1...-4...-2...-4...-4...-2...-3...-5
%e .-3...-3...-5...-1...-3...-5...-1...-2...-1...-4...-2...-2...-4...-1....1...-1
%e .-2...-3...-2....1...-3...-5....0...-2....0...-4...-1....2...-3....1....1....1
%e ..2....4....2....2...-3....6....0....3....0...-4....1....3....3....1....1....4
%e ..4....6....6....2....5....6....4....4....1....6....3....3....5....1....1....4
%p AatE := proc(n,nminusfE,E)
%p option remember ;
%p local a,fEminus, fEplus,f0,resn ;
%p if E = 0 then
%p if n =0 then
%p 1;
%p else
%p 0;
%p end if;
%p else
%p a :=0 ;
%p for fEminus from 0 to nminusfE do
%p for fEplus from 0 to nminusfE-fEminus do
%p f0 := nminusfE-fEminus-fEplus ;
%p resn := n-(2^E+1)*fEminus+(2^E-1)*fEplus ;
%p if abs (resn) <= (1+2^(E-1))*f0 then
%p a := a+procname(resn,f0,E-1) ;
%p end if;
%p end do:
%p end do:
%p a ;
%p end if;
%p end proc:
%p A187988 := proc(n,k)
%p AatE(n,n,n+k-2) ;
%p end proc:
%p seq(seq( A187988(n, d-n), n=1..d-1), d=2..15) ; # _R. J. Mathar_, May 12 2023
%Y Row n=4 is A055999(k+1). A187989 (n=5), A187990 (n=6), A187991 (n=7), A187992 (n=8), A187979 (k=n), A187980 (k=1), A187981 (k=2), A187982 (k=3), A187983 (k=4), A187984 (k=5), A187985 (k=6).
%K nonn,tabl
%O 1,5
%A _R. H. Hardin_ Mar 18 2011
|
