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, 10}]; a
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Amarnath Murthy, Jun 19 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 25 2002
STATUS
approved