|
Search: id:A163463
|
|
|
| A163463 |
|
a(1)=1. For n>=2: If a(n-1) is coprime to n, then a(n) = the smallest integer > a(n-1) that is coprime to n. If a(n-1) is not coprime to n, then a(n) = the smallest integer > a(n-1) that is not coprime to n. |
|
+0
1
|
|
| 1, 3, 6, 8, 9, 10, 11, 13, 14, 15, 16, 18, 19, 23, 26, 28, 29, 31, 32, 34, 37, 39, 40, 42, 43, 45, 48, 49, 50, 51, 52, 54, 55, 57, 58, 60, 61, 63, 65, 66, 67, 71, 72, 74, 76, 78, 79, 83, 85, 86, 88, 90, 91, 95, 99, 101, 103, 105, 106, 108, 109, 111, 112, 114, 116, 117, 118
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
a = {1}; Do[If[GCD[n, a[[ -1]]] == 1, k = a[[ -1]] + 1; While[GCD[k, n] > 1, k++ ]; AppendTo[a, k], k = a[[ -1]] + 1; While[GCD[k, n] < 2, k++ ]; AppendTo[a, k]], {n, 2, 100}]; a [From Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Aug 05 2009]
|
|
PROGRAM
|
(PARI) al(n)=local(v, q); v=vector(n); v[1]=1; for(k=2, n, q=gcd(k, v[k-1])!=1; v[k]=v[k-1]+1; while(gcd(k, v[k])!=1!=q, v[k]++)); v [From Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Aug 06 2009]
|
|
CROSSREFS
|
Sequence in context: A016663 A023993 A133159 this_sequence A137386 A153307 A004715
Adjacent sequences: A163460 A163461 A163462 this_sequence A163464 A163465 A163466
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (q1qq2qqq3qqqq(AT)yahoo.com), Jul 28 2009
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com) and Franklin T. Adams-Watters (FrankTAW(AT)Netscape.net), Aug 05 2009
|
|
|
Search completed in 0.002 seconds
|
