%I #3 Dec 05 2013 19:55:20
%S 2,3,7,29,61,157,239,521,739,1021,1277,2221,2731,3851,4651,5857,7039,
%T 9343,10831,14561,15919,18481,20563,25321,27551,32371,35803,40993,
%U 44371,53551,55987,66721,72733,80207,87151,97453,101603,116471,123787
%N Right diagonal of triangle in A072467.
%t a = {2}; k = 3; Do[i = 1; While[i < n + 1, If[ PrimeQ[k] && Mod[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 40}]; Table[ a[[n(n - 1)/2 + 1]], {n, 1, 40}]
%Y Cf. A072467, A072468.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Jun 19 2002
%E Edited by _Robert G. Wilson v_, Jun 28 2002
|