|
Search: id:A153271
|
|
|
| A153271 |
|
A generalized triangular sequence: j=3; t(n,m,j)=If[m == 0, Prime[j], Product[m*k + Prime[j], {k, 0, n}]]. |
|
+0
1
|
|
| 5, 5, 30, 5, 35, 315, 5, 40, 440, 6160, 5, 45, 585, 9945, 208845, 5, 50, 750, 15000, 375000, 11250000, 5, 55, 935, 21505, 623645, 21827575, 894930575, 5, 60, 1140, 29640, 978120, 39124800, 1838865600, 99298742400, 5, 65, 1365, 39585, 1464645
(list; table; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Row sums are:
{5, 35, 355, 6645, 219425, 11640805, 917404295, 101177741765, 14919432040765,
2839006665525525, 677815000136926955}
|
|
FORMULA
|
j=3; t(n,m,j)=If[m == 0, Prime[j], Product[m*k + Prime[j], {k, 0, n}]].
|
|
EXAMPLE
|
{5},
{5, 30},
{5, 35, 315},
{5, 40, 440, 6160},
{5, 45, 585, 9945, 208845},
{5, 50, 750, 15000, 375000, 11250000},
{5, 55, 935, 21505, 623645, 21827575, 894930575},
{5, 60, 1140, 29640, 978120, 39124800, 1838865600, 99298742400},
{5, 65, 1365, 39585, 1464645, 65909025, 3493178325, 213083877825, 14702787569925},
{5, 70, 1610, 51520, 2112320, 105616000, 6231344000, 423731392000, 32627317184000, 2805949277824000},
{5, 75, 1875, 65625, 2953125, 162421875, 10557421875, 791806640625, 67303564453125, 6393838623046875, 671353055419921875}
|
|
MATHEMATICA
|
Clear[t, n, m, j]; j = 3;
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
Sequence in context: A130220 A081847 A020551 this_sequence A117858 A014434 A106830
Adjacent sequences: A153268 A153269 A153270 this_sequence A153272 A153273 A153274
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 22 2008
|
|
|
Search completed in 0.002 seconds
|
