OFFSET
1,2
MATHEMATICA
a = {1}; k = 2; Do[i = 1; While[i < n + 1, If[ GCD[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 55}]; Table[ a[[n(n - 1)/2 + 1]], {n, 1, 55}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 18 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 28 2002
STATUS
approved