A159040 - cp's OEIS frontend

A159040 A triangle of polynomial coefficients: p(x,n)=Sum[x^iIf[i == Floor[n/2] && Mod[n, 2] == 0, 0, If[i <= (less than or equal to) Floor[n/2], (-1)^iA109128[n, i], -(-1)^(n - i)* A109128[n, i]]], {i, 0, n}]/(1 - x).

n	a(n)
0	1
1	1
2	1
3	1
4	-4
5	1
6	1
7	-6
8	-6
9	1
10	1
11	-8
12	11
13	-8
14	1
15	1
16	-10
17	19
18	19
19	-10
20	1
21	1
22	-12
23	29
24	-40
25	29
26	-12
27	1
28	1
29	-14
30	41
31	-70
32	-70
33	41
34	-14
35	1
36	1
37	-16
38	55
39	-112
40	139
41	-112
42	55
43	-16
44	1
45	1
46	-18
47	71
48	-168
49	251
50	251
51	-168
52	71
53	-18
54	1
55	1
56	-20
57	89
58	-240
59	419
60	-504
61	419
62	-240
63	89
64	-20
65	1

[1, 1, 1, 1, -4, 1, 1, -6, -6, 1, 1, -8, 11, -8, 1, 1, -10, 19, 19, -10, 1, 1, -12, 29, -40, 29, -12, 1, 1, -14, 41, -70, -70, 41, -14, 1, 1, -16, 55, -112, 139, -112, 55, -16, 1, 1, -18, 71, -168, 251, 251, -168, 71, -18, 1, 1, -20, 89, -240, 419, -504, 419, -240, 89, -20, 1]

cp's OEIS Frontend

A159040 A triangle of polynomial coefficients: p(x,n)=Sum[x^iIf[i == Floor[n/2] && Mod[n, 2] == 0, 0, If[i <= (less than or equal to) Floor[n/2], (-1)^iA109128[n, i], -(-1)^(n - i)* A109128[n, i]]], {i, 0, n}]/(1 - x).

Table of values

List of values

cp's OEIS Frontend

A159040 A triangle of polynomial coefficients: p(x,n)=Sum[x^i*If[i == Floor[n/2] && Mod[n, 2] == 0, 0, If[i <= (less than or equal to) Floor[n/2], (-1)^i*A109128[n, i], -(-1)^(n - i)* A109128[n, i]]], {i, 0, n}]/(1 - x).

Table of values

List of values

A159040 A triangle of polynomial coefficients: p(x,n)=Sum[x^iIf[i == Floor[n/2] && Mod[n, 2] == 0, 0, If[i <= (less than or equal to) Floor[n/2], (-1)^iA109128[n, i], -(-1)^(n - i)* A109128[n, i]]], {i, 0, n}]/(1 - x).