This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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; text; internal format)
 OFFSET 0,5 COMMENTS Same as an alternating Pascal's triangle until row six. LINKS 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: A034253 A203952 A296115 * A281587 A026022 A073714 Adjacent sequences:  A118684 A118685 A118686 * A118688 A118689 A118690 KEYWORD sign,tabl,uned AUTHOR Roger L. Bagula, May 20 2006 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 20 06:19 EDT 2019. Contains 322294 sequences. (Running on oeis4.)