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

%I

%S 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,

%T 129,-72,16,1,-36,342,-1412,2913,-3168,1744,-384,1,-60,1206,-9620,

%U 36801,-73080,77776,-42240,9216,1,-252,12726,-241172,1883841,-7138872,14109136,-14975232,8119296,-1769472,1,-1980,448182

%N A triangular array made from polynomial coefficients of A049614 in a Stirling number of the first kind pattern.

%C Same as an alternating Pascal's triangle until row six.

%F a(n,m) = Coefficients[a[n,m]*x^n]

%e 1,

%e 1, -1,

%e 1, -2, 1,

%e 1, -3, 3, -1

%e 1, -4, 6, -4, 1

%e 1, -8, 22,-28, 17, -4

%t 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]

%Y Cf. A049614, A034386, A008275.

%K sign,tabl,uned

%O 0,5

%A _Roger L. Bagula_, May 20 2006

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 May 27 02:54 EDT 2019. Contains 323597 sequences. (Running on oeis4.)