A158747 - OEIS

%I #2 Mar 30 2012 17:34:35

%S 2,3,2,7,5,2,13,11,5,2,29,23,17,11,2,37,31,23,17,5,2,53,47,41,31,17,

%T 11,2,61,59,47,41,23,17,5,2,79,73,67,59,41,31,17,11,2,107,103,97,83,

%U 67,59,41,31,17,2,113,109,103,97,73,67,47,41,23,5,2

%N Triangle read by rows: T(n,m)=prime( 1+prime(n+1)-prime(m+1) ).

%C The row sums are {2, 5, 14, 31, 82, 115, 202, 255, 380, 607, 680,...}.

%F T(n,m)=A000040( 1+A000040(n+1)-A000040(m+1) ) = A000040(1+A086800(n,m)), 0<=n, 0<=m<=n.

%e {2},

%e {3, 2},

%e {7, 5, 2},

%e {13, 11, 5, 2},

%e {29, 23, 17, 11, 2},

%e {37, 31, 23, 17, 5, 2},

%e {53, 47, 41, 31, 17, 11, 2},

%e {61, 59, 47, 41, 23, 17, 5, 2},

%e {79, 73, 67, 59, 41, 31, 17, 11, 2},

%e {107, 103, 97, 83, 67, 59, 41, 31, 17, 2},

%e {113, 109, 103, 97, 73, 67, 47, 41, 23, 5, 2}

%t Clear[t, n, m];

%t t[n_, m_] = Prime[Prime[n + 1] - Prime[m + 1] + 1];

%t Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];

%t Flatten[%]

%K nonn,tabl,easy

%O 0,1

%A _Roger L. Bagula_, Mar 25 2009

%E Edited by the Associate Editors of the OEIS, Apr 22 2009