A071978 Right diagonal of A071977.

1, 5, 10, 17, 23, 41, 50, 65, 79, 103, 115, 151, 165, 197, 226, 257, 275, 329, 349, 399, 436, 483, 507, 577, 608, 665, 706, 771, 801, 913, 945, 1009, 1063, 1135, 1186, 1291, 1329, 1409, 1474, 1573, 1615, 1763, 1807, 1905, 1988, 2083, 2131, 2275, 2332, 2457

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]], {n, 1, 55}]

Crossrefs

Sequence in context: A313986 A299910 A313987 * A313988 A340042 A307028

Adjacent sequences: A071975 A071976 A071977 * A071979 A071980 A071981

Keyword

nonn

Author

Amarnath Murthy, Jun 18 2002

Extensions

Edited by Robert G. Wilson v, Jun 28 2002

Status

approved