This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A137440 Triangle T(n,m) read by rows: T(m,n) = (1+n*3^m)-th prime. 0
 2, 3, 7, 5, 17, 67, 7, 29, 107, 421, 11, 41, 157, 599, 2153, 13, 53, 199, 769, 2791, 9857, 17, 67, 257, 967, 3469, 12203, 41851, 19, 79, 311, 1151, 4129, 14537, 49697, 167623, 23, 97, 367, 1327, 4817, 16871, 57571, 193957, 645581, 29, 107, 421, 1549, 5521 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Row sums are: {2, 10, 89, 564, 2961, 13682, 58831, 237546, 920611, 3459888, 12685349, ...} The first 3 columns are essentially A000040, A031377 and A031918. - R. J. Mathar, May 05 2008 LINKS EXAMPLE {2}, {3, 7}, {5, 17, 67}, {7, 29, 107, 421}, {11, 41, 157, 599, 2153}, {13, 53, 199, 769, 2791, 9857}, {17, 67, 257, 967, 3469, 12203, 41851}, {19, 79, 311, 1151, 4129, 14537, 49697, 167623}, {23, 97, 367, 1327, 4817, 16871, 57571, 193957, 645581}, {29, 107, 421, 1549, 5521, 19301, 65699, 220873, 33591, 2412797}, {31, 127, 467, 1741, 6229, 21649, 73867, 247943, 822587, 2702809, 8807899} MATHEMATICA 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}]; CROSSREFS Sequence in context: A083188 A228775 A129543 * A038026 A051860 A155766 Adjacent sequences:  A137437 A137438 A137439 * A137441 A137442 A137443 KEYWORD nonn,tabl AUTHOR Roger L. Bagula, Apr 17 2008 EXTENSIONS Edited by N. J. A. Sloane, May 16 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.