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

Author

Amarnath Murthy, Jun 18 2002

Keywords

• nonn

Programs

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}]

Extensions

Edited by Robert G. Wilson v, Jun 28 2002