|
Search: id:A121057
|
|
|
| A121057 |
|
Triangle read by rows: T(n,m) = Prime[m]^n*(Prime[m] - 1)/2 |
|
+0
1
|
|
| 1, 3, 9, 10, 50, 250, 21, 147, 1029, 7203, 55, 605, 6655, 73205, 805255, 78, 1014, 13182, 171366, 2227758, 28960854, 136, 2312, 39304, 668168, 11358856, 193100552, 3282709384, 171, 3249, 61731, 1172889, 22284891, 423412929, 8044845651
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Row sums: Table[Apply[Plus, Table[t[n, m], {n, 1, m}]], {m, 1, 10}] {1, 12, 310, 8400, 885775, 31374252, 3487878712, 161343848880, 20713255606813, 6100254882852900}
|
|
MATHEMATICA
|
t[n_, m_] = Prime[m]^n*(Prime[m] - 1)/2; a = Table[Table[t[n, m], {n, 1, m}], {m, 1, 10}] Flatten[a]
|
|
CROSSREFS
|
Adjacent sequences: A121054 A121055 A121056 this_sequence A121058 A121059 A121060
Sequence in context: A136852 A031115 A004669 this_sequence A025538 A070354 A074261
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 27 2007
|
|
|
Search completed in 0.002 seconds
|
