A082748 Rearrangement of natural numbers disturbing the position of every number such that a(n) is coprime to a(m) if n is coprime to m. (a(n),a(m)) = 1 if (n,m) = 1.

2, 1, 5, 3, 7, 9, 11, 13, 17, 19, 23, 15, 29, 27, 25, 31, 37, 39, 41, 21, 43, 47, 53, 45, 49, 57, 59, 33, 61, 35, 67, 71, 73, 79, 77, 51, 83, 81, 85, 63, 89, 55, 97, 69, 101, 93, 103, 65, 107, 91, 109, 87, 113, 75, 127, 99, 125, 117, 131, 95, 137, 139, 121, 141, 133, 115, 149

Offset

1,1

Links

Table of n, a(n) for n=1..67.

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

Sequence in context: A058683 A286295 A026205 * A342131 A327691 A175330

Adjacent sequences: A082745 A082746 A082747 * A082749 A082750 A082751

Keyword

nonn

Author

Amarnath Murthy, Apr 16 2003

Extensions

Corrected and extended by David Wasserman, Sep 30 2004

Status

approved