|
Search: id:A127694
|
|
|
| A127694 |
|
Absolute value of coefficient of x^3 in polynomial whose zeros are 5 consecutive integers starting with the n-th integer. |
|
+0
1
|
|
| 580, 1175, 2070, 3325, 5000, 7155, 9850, 13145, 17100, 21775, 27230, 33525, 40720, 48875, 58050, 68305, 79700, 92295, 106150, 121325, 137880, 155875, 175370, 196425, 219100, 243455, 269550, 297445, 327200, 358875, 392530, 428225, 466020
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Sums of all distinct products of 3 out of 5 consecutive integers, starting with the n-th integer; value of 3rd elementary symmetric function on the 5 consecutive integers. cf. Vieta's formulas.
|
|
MATHEMATICA
|
r = {}; k = 0; a = {}; Do[Do[Do[If[(d != b) && (d != c) && (b != c), AppendTo[a, {d, b, c}]], {c, b, 5}], {b, d, 5}], {d, 1, 5}]; Do[Do[k = k + Sum[(x + a[[v, 1]]) (x + a[[v, 2]]) (x + a[[v, 3]]), {v, 1, Length[a]}]]; AppendTo[r, k]; k = 0, {x, 1, 50}]; r
|
|
CROSSREFS
|
Cf. A127694, A127350.
Sequence in context: A097768 A073735 A097769 this_sequence A162705 A059468 A122694
Adjacent sequences: A127691 A127692 A127693 this_sequence A127695 A127696 A127697
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 23 2007
|
|
|
Search completed in 0.002 seconds
|
