A126357 a(n) is the (n+1)st integer from among the positive integers which are coprime to n.

2, 5, 5, 9, 7, 19, 9, 17, 14, 27, 13, 37, 15, 33, 29, 33, 19, 55, 21, 51, 38, 49, 25, 73, 32, 57, 41, 67, 31, 113, 33, 65, 56, 73, 52, 109, 39, 81, 64, 101, 43, 149, 45, 97, 86, 97, 49, 145, 58, 127, 82, 113, 55, 163, 76, 131, 91, 121, 61, 227, 63, 129, 110, 129, 88, 221, 69

Offset

1,1

Links

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

Example

The positive integers which are coprime to 6 are 1,5,7,11,13,17,19,23,... The 7th of these is 19, which is a(6).

Mathematica

f[n_] := Block[{k = 0, c = n + 1}, While[c > 0, k++; While[GCD[k, n] > 1, k++ ]; c--; ]; k]; Table[f[n], {n, 67}] (* Ray Chandler, Dec 29 2006 *)

Crossrefs

Cf. A069213, A126356.

Sequence in context: A152781 A200242 A062553 * A377809 A070243 A367642

Adjacent sequences: A126354 A126355 A126356 * A126358 A126359 A126360

Keyword

nonn

Author

Leroy Quet, Dec 26 2006

Extensions

Extended by Ray Chandler, Dec 29 2006

Status

approved