OFFSET
1,1
PROG
(PARI) A = vector(100); used = vector(5000); A[1] = 2; A[2] = 1; for (n = 3, 100, found = 0; k = 1; while(!found, k = k + 2; if (!used[k] && k != n, m = 3; works = 1; while (works && m < n, if (gcd(m, n) == 1 && gcd(A[m], k) > 1, works = 0, m = m + 1)); found = works)); A[n] = k; used[k] = 1); A
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 16 2003
EXTENSIONS
Corrected and extended by David Wasserman, Sep 30 2004
STATUS
approved