A071979 Left diagonal of A071977.

1, 3, 7, 11, 18, 25, 43, 51, 67, 81, 104, 119, 152, 167, 199, 227, 258, 277, 330, 351, 400, 437, 484, 509, 578, 609, 667, 709, 772, 803, 914, 947, 1010, 1065, 1136, 1187, 1292, 1331, 1411, 1477, 1574, 1619, 1764, 1809, 1906, 1989, 2084, 2135, 2276, 2333

Offset

1,2

Links

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

Mathematica

a = {1}; k = 2; Do[i = 1; While[i < n + 1, If[ GCD[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 55}]; Table[ a[[n(n - 1)/2 + 1]], {n, 1, 55}]

Crossrefs

Sequence in context: A049792 A062851 A178464 * A335323 A097748 A255000

Adjacent sequences: A071976 A071977 A071978 * A071980 A071981 A071982

Keyword

nonn

Author

Amarnath Murthy, Jun 18 2002

Extensions

Edited by Robert G. Wilson v, Jun 28 2002

Status

approved