

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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

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)); (Wasserman)


CROSSREFS



KEYWORD



AUTHOR



EXTENSIONS

Leading term 2 was omitted; restored May 16 2007


STATUS

approved



