login
A075647
List of groups in A075643.
4
2, 1, 8, 3, 4, 9, 5, 6, 12, 32, 7, 10, 15, 16, 30, 11, 14, 18, 20, 25, 24, 13, 22, 21, 28, 35, 36, 77, 17, 26, 27, 40, 45, 42, 49, 96, 19, 34, 33, 44, 50, 48, 56, 64, 72, 23, 38, 39, 52, 55, 54, 63, 80, 81, 120, 29, 46, 51, 60, 65, 66, 70, 88, 90, 100, 187, 31, 58, 57, 68, 75, 78
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