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

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

Offset: 1

Author

Amarnath Murthy, Apr 20 2004

Keywords

• nonn
• tabl

Examples

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

Crossrefs

Cf. A077316, A038700 (first column), A093871 (main diagonal).

Programs

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]];
Array[row, 12] // Flatten (* Jean-François Alcover, Jun 08 2020 *)

Extensions

Edited and extended by Franklin T. Adams-Watters, Aug 29 2006

Definition clarified by Zak Seidov, Apr 16 2013

Duplicate term 139 removed by Jean-François Alcover, Jun 08 2020