|
| |
|
|
A118687
|
|
A triangular array made from polynomial coefficients of A049614 in a Stirling number of the first kind pattern.
|
|
1
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
COMMENTS
| 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.
Sequence in context: A034328 A034253 A203952 * A026022 A073714 A171848
Adjacent sequences: A118684 A118685 A118686 * A118688 A118689 A118690
|
|
|
KEYWORD
| sign,tabl,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 20 2006
|
| |
|
|
