OFFSET
1,1
MATHEMATICA
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}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jun 19 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 28 2002
STATUS
approved