login
A121218
a(n) = (n-th prime)th positive integer which is coprime to n.
0
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
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 A376561 A266001
KEYWORD
nonn
AUTHOR
Leroy Quet, Aug 20 2006
EXTENSIONS
Extended by Ray Chandler, Aug 22 2006
STATUS
approved