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