

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.


0



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



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 * A327691 A175330 A085261
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



