|
%I #5 Mar 30 2012 17:39:32
%S 2,3,7,5,17,67,7,29,107,421,11,41,157,599,2153,13,53,199,769,2791,
%T 9857,17,67,257,967,3469,12203,41851,19,79,311,1151,4129,14537,49697,
%U 167623,23,97,367,1327,4817,16871,57571,193957,645581,29,107,421,1549,5521
%N Triangle T(n,m) read by rows: T(m,n) = (1+n*3^m)-th prime.
%C Row sums are: {2, 10, 89, 564, 2961, 13682, 58831, 237546, 920611, 3459888, 12685349, ...}
%C The first 3 columns are essentially A000040, A031377 and A031918. - _R. J. Mathar_, May 05 2008
%e {2},
%e {3, 7},
%e {5, 17, 67},
%e {7, 29, 107, 421},
%e {11, 41, 157, 599, 2153},
%e {13, 53, 199, 769, 2791, 9857},
%e {17, 67, 257, 967, 3469, 12203, 41851},
%e {19, 79, 311, 1151, 4129, 14537, 49697, 167623},
%e {23, 97, 367, 1327, 4817, 16871, 57571, 193957, 645581},
%e {29, 107, 421, 1549, 5521, 19301, 65699, 220873, 33591, 2412797},
%e {31, 127, 467, 1741, 6229, 21649, 73867, 247943, 822587, 2702809, 8807899}
%t T[n_, m_] := Prime[1 + n*3^m]; Table[Table[T[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%] Table[Apply[Plus, Table[T[n, m], {m, 0, n}]], {n, 0, 10}];
%K nonn,tabl
%O 1,1
%A _Roger L. Bagula_, Apr 17 2008
%E Edited by _N. J. A. Sloane_, May 16 2008
|
