|
|
A082220
|
|
First column of array A082218.
|
|
5
|
|
|
1, 5, 6, 4, 9, 11, 20, 48, 31, 55, 30, 92, 52, 112, 94, 150, 113, 193, 152, 242, 218, 232, 246, 308, 301, 317, 441, 353, 311, 413, 431, 385, 399, 515, 570, 592, 614, 674, 542, 558, 697, 761, 785, 853, 969, 907, 745, 1099, 837, 1057, 1085, 1009, 1245, 1439, 1477
(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
|
|
|
|