|
| |
|
|
A111521
|
|
Sequence is {a(3,n)}, where a(m,n) is defined at sequence A111518.
|
|
5
|
|
|
|
1, 3, 3, -3, -8, -1, -44, -151, 259, -49, -5250, 17176, 18870, -443793, 1765849, 1813152, -60621125, 321255514, -62856104, -11540412088, 88870982824, -195655026297, -2574468817607, 32370146955580, -155239071570949, -402613805424503, 13621655040570928
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Table of n, a(n) for n=0..26.
|
|
|
EXAMPLE
|
a(0,n): 1,0,-3,-4,7,...
a(1,n): 1,1,-2,-6,1,...
a(2,n): 1,2,0,-6,-5,...
a(3,n): 1,3,3,-3,-8,...
a(4,n): 1,4,7,4,-4,...
Main diagonal is 1,1,0,-3,-4,..., which is 1 followed by sequence a(0,n).
|
|
|
MAPLE
|
A111521T := proc(nmax) local a, m, n; a := array(0..nmax, 0..nmax) ; for m from 0 to nmax do a[m, 0] := 1 ; od ; for n from 1 to nmax do a[n, n] := a[0, n-1] ; for m from n+1 to nmax do a[m, n] := a[m-1, n]+a[m, n-1] ; od ; for m from n-1 to 0 by -1 do a[m, n] := a[m+1, n]-a[m+1, n-1] ; od ; od ; RETURN(a) ; end: nmax := 50 ; a := A111521T(nmax) ; m := 3 ; for n from 0 to nmax do printf("%d, ", a[m, n]) ; od; - R. J. Mathar, Sep 26 2006
|
|
|
CROSSREFS
|
Cf. A111518, A111519, A111520, A111522, A111523.
Sequence in context: A098524 A143015 A107709 * A177937 A029628 A183389
Adjacent sequences: A111518 A111519 A111520 * A111522 A111523 A111524
|
|
|
KEYWORD
|
easy,sign
|
|
|
AUTHOR
|
Leroy Quet Aug 05 2005
|
|
|
EXTENSIONS
|
More terms from R. J. Mathar, Sep 26 2006
|
|
|
STATUS
|
approved
|
| |
|
|
