|
Search: id:A118687
|
|
|
| A118687 |
|
A triangular array made from polynomial coefficients of A049614 in a Stirling number of the first kind pattern. |
|
+0
3
|
|
| 1, 1, -1, 1, -2, 1, 1, -3, 3, -1, 1, -4, 6, -4, 1, 1, -8, 22, -28, 17, -4, 1, -12, 54, -116, 129, -72, 16, 1, -36, 342, -1412, 2913, -3168, 1744, -384, 1, -60, 1206, -9620, 36801, -73080, 77776, -42240, 9216, 1, -252, 12726, -241172, 1883841, -7138872, 14109136, -14975232, 8119296, -1769472, 1, -1980, 448182
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
Same as an alternating Pascal's triangle until row six.
|
|
FORMULA
|
a(n,m) = Coefficients[a[n,m]*x^n]
|
|
EXAMPLE
|
1,
1, -1,
1, -2, 1,
1, -3, 3, -1
1, -4, 6, -4, 1
1, -8, 22,-28, 17, -4
|
|
MATHEMATICA
|
f[n_] := If[PrimeQ[n] == True, 1, n] cf[0] = 1; cf[n_Integer?Positive] := cf[n] = f[n]*cf[n - 1] a = Join[{{1}}, Table[Reverse[ CoefficientList[Product[x - cf[n], {n, 0, m}], x]], {m, 0, 10}]] aout = Flatten[a]
|
|
CROSSREFS
|
Cf. A049614, A034386, A008275.
Adjacent sequences: A118684 A118685 A118686 this_sequence A118688 A118689 A118690
Sequence in context: A051137 A034328 A034253 this_sequence A026022 A073714 A022818
|
|
KEYWORD
|
sign,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 20 2006
|
|
|
Search completed in 0.002 seconds
|
