A082220 - OEIS

A082220

First column of array A082218.

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

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

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]);

if(j==1, print1(", ", sum(k=1, j, a[i, j])/j) ); ))} \\ This is a modification of Max Alekseyev's PARI program from A082219. - Petros Hadjicostas, Feb 25 2021

CROSSREFS

Cf. A082218, A082219, A082221, A082222, A082223.

Sequence in context: A132324 A021643 A021181 * A144522 A371763 A020504

Adjacent sequences: A082217 A082218 A082219 * A082221 A082222 A082223

KEYWORD

nonn

AUTHOR

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 09 2003

EXTENSIONS

More terms from Max Alekseyev, Jun 08 2007

Edited by N. J. A. Sloane, Jun 11 2007

Name edited by Petros Hadjicostas, Feb 25 2021

STATUS

approved