cp's OEIS Frontend

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

%I A093870 #19 Jun 08 2020 02:35:53
%S A093870 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 A093870 139,167,181,7,23,31,47,71,79,103,127,17,53,71,89,107,179,197,233,251,
%U A093870 19,29,59,79,89,109,139,149,179,199,43,109,131,197,241,263,307,373,439,461,571
%N A093870 Triangle read by rows: T(n,k) is the k-th prime = -1 (mod n), 1 <= k <= n.
%e A093870 2;
%e A093870 3,5;
%e A093870 2,5,11;
%e A093870 3,7,11,19;
%e A093870 ...
%t A093870 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 A093870 Array[row, 12] // Flatten (* _Jean-François Alcover_, Jun 08 2020 *)
%Y A093870 Cf. A077316, A038700 (first column), A093871 (main diagonal).
%K A093870 nonn,tabl
%O A093870 1,1
%A A093870 _Amarnath Murthy_, Apr 20 2004
%E A093870 Edited and extended by _Franklin T. Adams-Watters_, Aug 29 2006
%E A093870 Definition clarified by _Zak Seidov_, Apr 16 2013
%E A093870 Duplicate term 139 removed by _Jean-François Alcover_, Jun 08 2020