n= 5;
p =0;
For[i =0 , i<n, i++,p= p + x^i]
For[j =0 , j<2n, j++,
m = p*(1 +x)^j;
Print[CoefficientList[m, x]]
]
p;
CoefficientList[m,x];

n =3
row1 = Array[1&, n];
hex = {row1};
rlength =n;
rowp = row1;
Print[row1]
For[j =1, j<n, j++,
nextrow = {1};
For[i =1, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
nextrow = Append[nextrow, 1];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength + 1;
Print[nextrow]];
For[j =1, j<n, j++,
nextrow = {rowp[[1]]+ rowp[[2]]};
For[i =2, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength - 1;
Print[nextrow]];
Print[hex]

largest = {1};
For[n =2, n<19, n++,
row1 = Array[1&, n];
hex = {row1};
rlength =n;
rowp = row1;
For[j =1, j<n, j++,
nextrow = {1};
For[i =1, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
nextrow = Append[nextrow, 1];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength + 1];
For[j =1, j<n, j++,
nextrow = {rowp[[1]]+ rowp[[2]]};
For[i =2, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength - 1];
largest = Append[largest, hex[[2n-1]][[Floor[(n+1)/2]]]]]
largest
ListLinePlot[largest]

max = 10;
lastRow = {1};
For[n =2, n<max, n++,
row1 = Array[1&, n];
hex = {row1};
rlength =n;
rowp = row1;
For[j =1, j<n, j++,
nextrow = {1};
For[i =1, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
nextrow = Append[nextrow, 1];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength + 1];
For[j =1, j<n, j++,
nextrow = {rowp[[1]]+ rowp[[2]]};
For[i =2, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength - 1];
lastRow = Append[lastRow, hex[[2n-1]]]]
For[ i = 1, i <max, i ++,
	Print[lastRow[[i]]];
]

n =3;
row1 = {10,-10, 1};
hex = {row1};
rlength =n;
rowp = row1;
Print[row1]
For[j =1, j<n, j++,
nextrow = {1};
For[i =1, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
nextrow = Append[nextrow, rowp[[rlength]]];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength + 1;
Print[nextrow]];
For[j =1, j<n, j++,
nextrow = {rowp[[1]]+ rowp[[2]]};
For[i =2, i <rlength , i ++,
temp = rowp[[i]] + rowp[[i+1]];
nextrow =Append[nextrow,temp]];
rowp = nextrow;
hex = Append[hex, nextrow];
rlength = rlength - 1;
Print[nextrow]];

RegionPlot[ {3 +2x +3y  <5 && 5y<5, 3 +2x +3y  >5 && 3 +2x +3y  >5y , 5y > 5 && 5y > 3+2x+3y },{x,-10,10},{y,-10,10}]

RegionPlot[ {3x +2 +3y  <5x && 5y<5x, 3x +2 +3y  >5x && 3x +2 +3y  >5y , 5y > 5x && 5y > 3x+2+3y },{x,-10,10},{y,-10,10}]

RegionPlot[ {3x +2y +3  <5x && 5<5x, 3x +2y +3  >5x && 3x +2y +3  >5 , 5 > 5x && 5 > 3x+2y+3 },{x,-10,10},{y,-10,10}]

Binomial[4,4]

PolyhedronData["TruncatedOctahedron"]

PolyhedronData["Tetrahedron"]