%I #3 Dec 05 2013 19:55:20
%S 1,5,10,17,23,41,50,65,79,103,115,151,165,197,226,257,275,329,349,399,
%T 436,483,507,577,608,665,706,771,801,913,945,1009,1063,1135,1186,1291,
%U 1329,1409,1474,1573,1615,1763,1807,1905,1988,2083,2131,2275,2332,2457
%N Right diagonal of A071977.
%t 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}]
%K nonn
%O 1,2
%A _Amarnath Murthy_, Jun 18 2002
%E Edited by _Robert G. Wilson v_, Jun 28 2002