|
Search: id:A153270
|
|
|
| A153270 |
|
A generalized triangular sequence: j=2; t(n,m,j)=If[m == 0, Prime[j], Product[m*k + Prime[j], {k, 0, n}]]. |
|
+0
1
|
|
| 3, 3, 12, 3, 15, 105, 3, 18, 162, 1944, 3, 21, 231, 3465, 65835, 3, 24, 312, 5616, 129168, 3616704, 3, 27, 405, 8505, 229635, 7577955, 295540245, 3, 30, 510, 12240, 379440, 14418720, 648842400, 33739804800, 3, 33, 627, 16929, 592515, 25478145
(list; table; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Row sums are:
{3, 15, 123, 2127, 69555, 3751827, 303356775, 34403458143, 5214459678387,
1018396843935195, 249088654250968899,...}
|
|
FORMULA
|
j=3; t(n,m,j)=If[m == 0, Prime[j], Product[m*k + Prime[j], {k, 0, n}]].
|
|
EXAMPLE
|
{3},
{3, 12},
{3, 15, 105},
{3, 18, 162, 1944},
{3, 21, 231, 3465, 65835},
{3, 24, 312, 5616, 129168, 3616704},
{3, 27, 405, 8505, 229635, 7577955, 295540245},
{3, 30, 510, 12240, 379440, 14418720, 648842400, 33739804800},
{3, 33, 627, 16929, 592515, 25478145, 1299385395, 76663738305, 5136470466435},
{3, 36, 756, 22680, 884520, 42456960, 2420046720, 159723083520, 11979231264000, 1006255426176000},
{3, 39, 897, 29601, 1272843, 67460679, 4250022777, 310251662721, 25750888005843, 2394832584543399, 246667756207970097}
|
|
MATHEMATICA
|
Clear[t, n, m, j]; j = 2;
t[n_, m_] = If[m == 0, Prime[j], Product[m*k + Prime[j], {k, 0, n}]];
Table[Table[t[n, m], {n, 0, m}], {m, 0, 10}]
Flatten[%]
|
|
CROSSREFS
|
j=1:A000142, A008544, A001813; j=2;A001710, A001147, A032031, A008545, A047056, A144739, A144758.
Sequence in context: A078225 A163372 A066437 this_sequence A065957 A032308 A117856
Adjacent sequences: A153267 A153268 A153269 this_sequence A153271 A153272 A153273
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 22 2008
|
|
|
Search completed in 0.002 seconds
|
