OFFSET
1,1
EXAMPLE
Triangle begins:
2;
1,8;
3,4,9;
5,6,12,32;
7,10,15,16,30;
11,14,18,20,25,24;
...
PROG
(PARI) used = vector(50000); A = vector(70); A[1] = 2; B = A; C = A; D = A; D[1] = 1; print(2); used[2] = 1; x = vector(70, i, i); for (n = 2, 70, s = 0; for (j = 1, n - 1, while (used[x[j]], x[j] += j); print1(x[j], " "); used[x[j]] = 1; s += x[j]; x[j] += j); while (used[x[n]], x[n] += n); i = x[n] + n*((s + x[n])%(n + 1)); while(used[i], i += n*(n + 1)); print(i); used[i] = 1; s += i; A[n] = x[1] - 1; B[n] = i; C[n] = s; D[n] = s/(n + 1)); \\ David Wasserman, Jan 22 2005
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Amarnath Murthy, Sep 30 2002
EXTENSIONS
More terms from David Wasserman, Jan 22 2005
Leading term 2 was omitted; restored May 16 2007
STATUS
approved