

A124264


HilbertWarren Add Sequence.


0



2, 5, 20, 51, 312, 740, 15000, 34125, 160720, 4988592, 180774720, 844074000, 27991656000, 66264953040
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Variant of A124261.


LINKS

Table of n, a(n) for n=1..14.


FORMULA

Terms generated by solving n x n linear system [H']x = b where b is unity and elements of H' are given by H'[i,j] = (i + j)/(i + j  1). Sequence term is the denominator of last unknown xn. Numerator is unity for last term for all problem orders examined.


PROG

/* [wxMaxima: input start ] */ load("eigen"); order : 4; X : columnvector(makelist(concat(x, i), i, 1, order)); h[i, j] := (i + j)/(i + j  1); Unity[i, j] := 1; A : genmatrix(h, order, order); A . X; B : genmatrix(Unity, 1, order); A . X = B; Ap : triangularize(A); Ap . X = B; App : invert(Ap); App . B; /* [wxMaxima: input end ] */


CROSSREFS

Cf. A124261.
Sequence in context: A136897 A098510 A168541 * A274239 A271858 A189734
Adjacent sequences: A124261 A124262 A124263 * A124265 A124266 A124267


KEYWORD

eigen,frac,hard,nonn


AUTHOR

L. Van Warren (van(AT)wdv.com), Oct 23 2006


EXTENSIONS

The author said that this version of the submission was unsatisfactory and set me a better version in email, which may replace this.  N. J. A. Sloane, Oct 24 2006


STATUS

approved



