|
| |
|
|
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; internal format)
|
|
|
|
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
| Sequence in context: A054084 A058683 A026205 * A175330 A085261 A179218
Adjacent sequences: A082745 A082746 A082747 * A082749 A082750 A082751
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 16 2003
|
|
|
EXTENSIONS
| Corrected and extended by David Wasserman (wasserma(AT)spawar.navy.mil), Sep 30 2004
|
| |
|
|
