login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

Table of n, a(n) for n=0..57.

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.

License Agreements, Terms of Use, Privacy Policy. .

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