OFFSET
0,3
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
A111519T := 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 := A111519T(nmax) ; r := 1 ; for n from 0 to nmax do printf("%d, ", a[r, n]) ; od; # R. J. Mathar, Sep 26 2006
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Leroy Quet, Aug 05 2005
EXTENSIONS
More terms from R. J. Mathar, Sep 26 2006
STATUS
editing