|
|
|
|
1, 3, 2, 10, 19, 25, 24, 28, 41, 27, 51, 81, 78, 86, 124, 120, 147, 123, 188, 142, 192, 116, 258, 250, 314, 254, 320, 392, 470, 404, 453, 377, 490, 612, 533, 445, 718, 708, 812, 602, 784, 726, 791, 771, 928, 1002, 1032, 1158, 996, 972, 1149, 1023, 1365, 1239
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
PROG
|
(PARI) lista(nn) = { my(a=matrix(nn, nn)); S=Set();
for(s=2, nn+1, if(s%2, i0=1; i1=s-1; i2=1, i0=s-1; i1=1; i2=-1);
forstep(i=i0, i1, i2, j=s-i;
ii=sum(k=1, j-1, a[i, k]); jj=sum(k=1, i-1, a[k, j]);
c=chinese(Mod(ii, j), Mod(jj, i));
t=component(c, 1)-lift(c); while(setsearch(S, t), t+=component(c, 1));
a[i, j]=t; S=setunion(S, [t]);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 09 2003
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|