cp's OEIS Frontend

A092557 Triangle read by rows: T(1,1) = 1; for n>=2, write the first n^2 integers in an n X n array beginning with 1 in the upper left proceeding left to right and top to bottom; then T(n,k) is the last prime in the k-th row.

%I A092557 #7 Apr 11 2013 08:36:23
%S A092557 1,2,3,3,5,7,3,7,11,13,5,7,13,19,23,5,11,17,23,29,31,7,13,19,23,31,41,
%T A092557 47,7,13,23,31,37,47,53,61,7,17,23,31,43,53,61,71,79,7,19,29,37,47,59,
%U A092557 67,79,89,97,11,19,31,43,53,61,73,83,97,109,113,11,23,31,47,59,71,83,89
%N A092557 Triangle read by rows: T(1,1) = 1; for n>=2, write the first n^2 integers in an n X n array beginning with 1 in the upper left proceeding left to right and top to bottom; then T(n,k) is the last prime in the k-th row.
%C A092557 There is a prime in each row.
%D A092557 Paulo Ribenboim, "The Little Book Of Big Primes," Springer-Verlag, NY 1991, page 185.
%e A092557 Triangle begins
%e A092557 1;
%e A092557 2, 3;
%e A092557 3, 5, 7;
%e A092557 3, 7, 11, 13;
%e A092557 5, 7, 13, 19, 23;
%t A092557 PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; Table[ PrevPrim[i*n + 1], {n, 2, 12}, {i, 1, n}]
%Y A092557 Cf. A092556, A083415.
%K A092557 nonn,tabl
%O A092557 1,2
%A A092557 _Robert G. Wilson v_, Feb 27 2004