A121218 a(n) = (n-th prime)th positive integer which is coprime to n.

2, 5, 7, 13, 13, 37, 19, 37, 34, 71, 34, 109, 44, 99, 88, 105, 62, 181, 70, 177, 127, 173, 86, 265, 121, 217, 154, 249, 112, 421, 131, 261, 226, 295, 216, 451, 161, 343, 271, 431, 183, 631, 195, 423, 368, 415, 215, 667, 264, 571, 370, 517, 245, 751, 353, 613, 425

Offset

1,1

Links

Table of n, a(n) for n=1..57.

Mathematica

f[s_List] := Block[{k = 0, l, n}, l = 1 + Length@s; n = Prime@l; While[n > 0, k++; While[ GCD[l, k] > 1, k++ ]; n-- ]; Return@ Append[s, k]]; Nest[f, {}, 75] (* Ray Chandler, Aug 22 2006 *)

Crossrefs

Sequence in context: A238336 A083271 A094285 * A371239 A266001 A062879

Adjacent sequences: A121215 A121216 A121217 * A121219 A121220 A121221

Keyword

nonn

Author

Leroy Quet, Aug 20 2006

Extensions

Extended by Ray Chandler, Aug 22 2006

Status

approved