%I #7 Feb 06 2019 02:00:51
%S 2,2,2,2,3,2,2,3,3,2,2,3,5,3,2,2,3,5,5,3,2,2,3,5,7,5,3,2,2,3,5,7,7,5,
%T 3,2,2,3,5,7,11,7,5,3,2,2,3,5,7,11,11,7,5,3,2,2,3,5,7,11,13,11,7,5,3,
%U 2,2,3,5,7,11,13,13,11,7,5,3,2,2,3,5,7,11
%N Triangle read by rows: row n contains n terms and each column lists the prime numbers A000040.
%H Nathaniel Johnston, <a href="/A138139/b138139.txt">Table of n, a(n) for n = 1..10000</a>
%e Triangle begins:
%e 2
%e 2,2
%e 2,3,2
%e 2,3,3,2
%e 2,3,5,3,2
%p A138139 := proc(n,k) return ithprime(min(k,n-k+1)): end: seq(seq(A138139(n,k), k=1..n), n=1..13); # _Nathaniel Johnston_, Apr 30 2011
%Y Cf. A000040, A003983.
%K easy,nonn,tabl
%O 1,1
%A _Omar E. Pol_, Mar 09 2008, Mar 25 2008
|