|
|
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, ...}
|
|
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
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|