|
|
A155105
|
|
Numbers appearing the third column of A155103.
|
|
2
|
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
A155102 := proc(n, k) if n = k then 1 ; elif n =2*k then -k-1 ; else 0; end if; end proc:
A155103 := proc(amx) a := array(1..amx, 1..amx) ; a[1, 1] := 1/A155102(1, 1) ;
for r from 1 to amx do
for c from 1 to r-1 do a[c, r] := 0 ; end do:
for c from r-1 to 1 by -1 do a[r, c] := -add(a[cp, c]*A155102(r, cp), cp=c..r-1)/A155102(r, r) ;
if c = 3 and a[r, c] <> 0 then print( a[r, c]) ; end if;
end do:
end do:
return ;
end proc:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|