|
Search: id:A153272
|
|
|
| A153272 |
|
A generalized triangular sequence: j=4; t(n,m,j)=If[m == 0, Prime[j], Product[m*k + Prime[j], {k, 0, n}]]. |
|
+0
1
|
|
| 7, 7, 56, 7, 63, 693, 7, 70, 910, 14560, 7, 77, 1155, 21945, 504735, 7, 84, 1428, 31416, 848232, 27143424, 7, 91, 1729, 43225, 1339975, 49579075, 2131900225, 7, 98, 2058, 57624, 2016840, 84707280, 4150656720, 232436776320, 7, 105, 2415, 74865
(list; table; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Row sums are:
{7, 63, 763, 15547, 527919, 28024591, 2182864327, 236674216947,
34243215666247, 6391699984166119, 1497639790982770659}
|
|
FORMULA
|
j=4; t(n,m,j)=If[m == 0, Prime[j], Product[m*k + Prime[j], {k, 0, n}]].
|
|
EXAMPLE
|
{7},
{7, 56},
{7, 63, 693},
{7, 70, 910, 14560},
{7, 77, 1155, 21945, 504735},
{7, 84, 1428, 31416, 848232, 27143424},
{7, 91, 1729, 43225, 1339975, 49579075, 2131900225},
{7, 98, 2058, 57624, 2016840, 84707280, 4150656720, 232436776320},
{7, 105, 2415, 74865, 2919735, 137227545, 7547514975, 475493443425, 33760034483175},
{7, 112, 2800, 95200, 4093600, 212867200, 12984899200, 908942944000, 71806492576000, 6318971346688000},
{7, 119, 3213, 118881, 5587407, 318482199, 21338307333, 1643049664641, 142945320823767, 13865696119905399, 1483629484829877693}
|
|
MATHEMATICA
|
Clear[t, n, m, j]; j = 4;
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;
j=3;A001720, A051577, A034000, A007696, A052562, A008543, A147585, A147625, A147629;
j=4;A001730, A051579, A051604
Sequence in context: A165828 A038273 A165425 this_sequence A117860 A009201 A065240
Adjacent sequences: A153269 A153270 A153271 this_sequence A153273 A153274 A153275
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 22 2008
|
|
|
Search completed in 0.003 seconds
|
