Z:= (s1,s2,s3,s4) -> (s1^6+3*s1^2*s2^2+6*s1^2*s4+6*s2^3+8*s3^2)/24;

Zio2JkkjczFHNiJJI3MyR0YlSSNzM0dGJUkjczRHRiVGJTYkSSlvcGVyYXRvckdGJUkmYXJyb3dHRiVGJSwsKiQ5JCIiJyMiIiIiI0MqJkYuIiIjOSVGNCNGMSIiKSomRi5GNDknRjEjRjEiIiUqJEY1IiIkRjoqJDkmRjQjRjFGPUYlRiVGJQ==

a := r; factor(Z(r,r,r,r));# this just asks how many cubes with r colors

SSJyRzYi

LCQqKEkickc2IiIiIywmRiQiIiJGKEYoRigsKiokRiQiIiRGKCokRiRGJiEiIkYkIiIlIiIpRihGKCNGKCIjQw==

for r from 1 to 5 do Z(r,r,r,r); od;

IiIi

IiM1

IiNk

IiRTIw==

IiQrKQ==

a := t -> 1+t; factor(Z(a(t),a(t^2),a(t^3),a(t^4)));

Zio2I0kidEc2IkYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCYiIiJGKjkkRipGJUYlRiU=

KiYsJiIiIkYkKiRJInRHNiIiIiNGJEYkLCwqJEYmIiIlRiQqJEYmIiIkRiRGJUYkRiZGJEYkRiRGJA==

subs(t=1,%);

IiM1

a:= (s,t) -> s+t; A:=factor(Z(a(s,t),a(s^2,t^2),a(s^3,t^3),a(s^4,t^4)));

Zio2JEkic0c2IkkidEdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCY5JCIiIjklRixGJUYlRiU=

KiYsJiokSSJzRzYiIiIjIiIiKiRJInRHRiZGJ0YoRigsLCokRiUiIiVGKComRiUiIiRGKkYoRigqJkYlRidGKkYnRigqJkYlRihGKkYvRigqJEYqRi1GKEYo

subs(s=1,subs(t=1,A));

IiM1

a:= t -> 1 + t + t^b; A:=expand(Z(a(t),a(t^2),a(t^3),a(t^4)));

Zio2I0kidEc2IkYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCgiIiJGKjkkRiopRitJImJHRiVGKkYlRiVGJQ==

LGpxIiIiRiNJInRHNiJGIyooKUYkSSJiR0YlRiMpKiRGJCIiI0YoRiNGJEYrI0YjRisqKEYnRiNGJEYjRilGI0YsKihGJ0YjRiQiIiRGKUYjRiwqKEYnRiNGJEYjRilGKyNGIyIiJSooRidGK0YpRiNGJEYrRjEqKEYnRiNGJEYjKSokRiRGMkYoRiNGLEYqRisqJEYkRi9GK0Y2RisqJEYkIiImRiMqJEYkIiInRiMqJkYnRi9GJEYjI0Y5RisqJkYnRitGJEYrRjIqJkYnRiNGJEYvRi8qJkYnRitGJEYjRj0qJkYnRiNGJEYrRi8qJEYnRitGIyomRidGI0YkRiNGK0YnRiNGKUYjKUY3RigjRitGL0Y1RjEqJEYnRi8jRjlGOyokRidGMiNGOSIiKSokRidGOUYxKiRGJ0Y7I0YjIiNDKiZGJ0YjRiRGMkYrKiZGJ0YyRiRGIyNGOUYyKiZGJ0YvRiRGK0Y9KiZGJ0YrRiRGL0Y9KiZGJ0YjRiRGOUYjKiZGJ0YrRiRGMkYjKiZGJ0Y5RiRGI0YxKiZGJ0YyRiRGK0ZJKiZGJ0YvRiRGL0ZHKiZGKUYjRiRGK0YrKiRGKUYrIyIiKEZKKiZGJEYjRilGI0YsKiZGKUYjRiRGL0YsKiZGJEYjRilGK0YxKiZGJ0YjRilGI0YsKiZGJ0YjRilGK0YxKiZGJEYyRilGI0YjKiZGJEYrRilGK0ZlbiomRidGK0YpRiNGMSomRidGK0YpRisjRiNGSiomRiRGI0Y1RiNGLComRidGI0Y1RiNGLComRiRGK0Y1RiNGMSomRidGK0Y1RiNGMSomRkRGI0YkRi9GRSokRkRGKyNGI0YvKiRGKUYvRjE=

a:= (s,t,u) -> s+t+u; A:=factor(Z(a(s,t,u),a(s^2,t^2,u^2),a(s^3,t^3,u^3),a(s^4,t^4,u^4)));

Zio2JUkic0c2IkkidEdGJUkidUdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLCg5JCIiIjklRi05JkYtRiVGJUYl

LFoqKEkic0c2IiIiJEkidEdGJSIiIkkidUdGJSIiI0YmKihGJEYqRidGJkYpRihGJiooRiRGJkYnRipGKUYoRiYqKEYkRipGJ0YoRilGJkYmKihGJEYqRidGKkYpRioiIicqKEYkRihGJ0YmRilGKkYmKihGJEYoRidGKkYpRiZGJiooRiRGKEYnRihGKSIiJUYqKihGJEYzRidGKEYpRihGKiooRiRGKEYnRjNGKUYoRioqJkYkRihGKSIiJkYoKiZGJEY3RilGKEYoKiZGJEYzRilGKkYqKiZGJEYmRilGJkYqKiZGJEYqRilGM0YqKiRGJ0YvRigqJEYpRi9GKCokRiRGL0YoKiZGJEY3RidGKEYoKiZGJEYzRidGKkYqKiZGJEYmRidGJkYqKiZGJEYqRidGM0YqKiZGJEYoRidGN0YoKiZGJ0YqRilGM0YqKiZGJ0Y3RilGKEYoKiZGJ0YzRilGKkYqKiZGJ0YmRilGJkYqKiZGJ0YoRilGN0Yo

coeff(A,s^2);

LCwqJkkidEc2IiIiJEkidUdGJSIiIkYmKiZGJEYoRidGJkYmKiZGJCIiI0YnRisiIicqJEYnIiIlRisqJEYkRi5GKw==