A072468 - OEIS

%I #3 Dec 05 2013 19:55:20

%S 2,5,19,53,151,211,463,673,1009,1231,2179,2593,3823,4649,5821,6977,

%T 9283,10369,14479,15901,18397,20549,25301,27073,32251,35569,40879,

%U 44017,53419,55681,66713,72577,80191,87041,97441,101341,116329,123653

%N Leading 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]], {n, 1, 40}]

%Y Cf. A072467, A072469.

%K nonn

%O 1,1

%A _Amarnath Murthy_, Jun 19 2002

%E Edited by _Robert G. Wilson v_, Jun 28 2002