|
Search: id:A124201
|
|
|
| A124201 |
|
a(n) = n-th positive integer from among those positive integers which are coprime to every noncomposite (1 or prime) which is < n and does not divide n. |
|
+0
1
|
|
| 1, 2, 5, 5, 13, 7, 23, 17, 27, 17, 43, 18, 59, 32, 43, 43, 79, 36, 97, 50, 71, 62, 113, 58, 125, 79, 109, 79, 157, 53, 173, 118, 131, 113, 167, 94, 211, 134, 167, 125, 239, 96, 257, 158, 191, 173, 281, 146, 283, 167, 237, 194, 331, 167, 295, 202, 267, 227, 373, 144
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
For which n's are n and a(n) coprime?
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
EXAMPLE
|
The primes < 8 and coprime to 8 are 3, 5 and 7. The positive integers which are coprime to these primes (i.e. which are coprime to 3*5*7) are 1, 2, 4, 8, 11, 13, 16, 17, 19, ...a(8) is the 8th of these integers, which is 17.
|
|
MATHEMATICA
|
f[n_] := Block[{c = n, k = 0, p}, p = Times @@ Select[Range[n - 1], PrimeQ[ # ] && GCD[ #, n] == 1 &]; While[c > 0, k++; While[GCD[k, p] > 1, k++ ]; c--; ]; k]; Table[f[n], {n, 61}] (*Chandler*)
|
|
CROSSREFS
|
Sequence in context: A081467 A084721 A138316 this_sequence A100953 A112835 A154692
Adjacent sequences: A124198 A124199 A124200 this_sequence A124202 A124203 A124204
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet Dec 07 2006
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 11 2006
|
|
|
Search completed in 0.002 seconds
|
