|
Search: id:A159587
|
|
|
| A159587 |
|
a(n) is the smallest number not yet in the sequence with the same number of distinct prime divisors as n, but relatively prime to n. |
|
+0
3
|
|
| 1, 3, 2, 5, 4, 35, 8, 7, 11, 21, 9, 55, 16, 15, 14, 13, 19, 65, 17, 33, 10, 39, 25, 77, 23, 45, 29, 51, 27, 1001, 32, 31, 20, 57, 6, 85, 41, 63, 22, 69, 37, 715, 47, 75, 26, 87, 43, 91, 53, 93, 28, 95, 49, 115, 12, 99, 34, 111, 61, 1309, 59, 117, 38, 67, 18, 455, 64, 123, 40, 429
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
This is a self-inverse permutation of the positive integers.
|
|
PROGRAM
|
(PARI) invect(v, n, x)=for(i=1, n, if(v[i]==x, return(1))); 0
nextnew(v, n)=local(k); k=1; while(!R(n, k)||invect(v, n-1, k), k++); k
newvect(n)=local(v); v=vector(n); for(k=1, n, v[k]=nextnew(v, k)); v
R(n, m)=omega(n)==omega(m)&&gcd(n, m)==1
newvect(80)
|
|
CROSSREFS
|
Cf. A001221, A094681, A159588.
Sequence in context: A164379 A120332 A095006 this_sequence A124732 A167552 A094787
Adjacent sequences: A159584 A159585 A159586 this_sequence A159588 A159589 A159590
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Apr 16 2009
|
|
|
Search completed in 0.002 seconds
|
