

A093870


Triangle read by rows: T(n,k) is the kth prime = 1 (mod n), 1 <= k <= n.


2



2, 3, 5, 2, 5, 11, 3, 7, 11, 19, 19, 29, 59, 79, 89, 5, 11, 17, 23, 29, 41, 13, 41, 83, 97, 139, 167, 181, 7, 23, 31, 47, 71, 79, 103, 127, 17, 53, 71, 89, 107, 179, 197, 233, 251, 19, 29, 59, 79, 89, 109, 139, 149, 179, 199, 43, 109, 131, 197, 241, 263, 307, 373, 439, 461, 571
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

2;
3,5;
2,5,11;
3,7,11,19;
...


MATHEMATICA

row[n_] := Reap[Module[{k, p}, For[k = 0; p = n  1, k < n, p += n, If[PrimeQ[p], k++; Sow[p]]]]][[2, 1]];


CROSSREFS



KEYWORD



AUTHOR



EXTENSIONS



STATUS

approved



