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

%I #19 Jun 08 2020 02:35:53

%S 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,

%T 139,167,181,7,23,31,47,71,79,103,127,17,53,71,89,107,179,197,233,251,

%U 19,29,59,79,89,109,139,149,179,199,43,109,131,197,241,263,307,373,439,461,571

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

%e 2;

%e 3,5;

%e 2,5,11;

%e 3,7,11,19;

%e ...

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

%t Array[row, 12] // Flatten (* _Jean-François Alcover_, Jun 08 2020 *)

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

%K nonn,tabl

%O 1,1

%A _Amarnath Murthy_, Apr 20 2004

%E Edited and extended by _Franklin T. Adams-Watters_, Aug 29 2006

%E Definition clarified by _Zak Seidov_, Apr 16 2013

%E Duplicate term 139 removed by _Jean-François Alcover_, Jun 08 2020