A075647 List of groups in A075643.

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

Author

Amarnath Murthy, Sep 30 2002

Keywords

• nonn
• tabl

Examples

			Triangle begins:
  2;
  1,8;
  3,4,9;
  5,6,12,32;
  7,10,15,16,30;
  11,14,18,20,25,24;
  ...
		

Crossrefs

Cf. A075643, A075644, A075645, A075646.

Programs

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

Extensions

More terms from David Wasserman, Jan 22 2005

Leading term 2 was omitted; restored May 16 2007