#Please do not post homework
#Ravali Bommanaboina, 10/11/20, Assignment 9

#Question 1

#DiagSeq2(1/(-3*x^3 + 8*y^3 + x*y - x - 7*y + 1), x, y, 50); -> 19501629419439354502375791106498323851002167501828932570930133769247837120063
#DiagWalks3D({[1, 8, 8], [1, 8, 9], [7, 1, 1]}, 30); -> [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]

#Question 2
InvGF:=proc(S) local i,permutations,sum:
permutations:=permute(S):
sum:=0:
for i in permutations do
sum:=inv(i)+sum:
end do:
return(sum):
end:

MajGF:=proc(S) local i,permutations,sum:
permutations:=permute(S):
sum:=0:
for i in permutations do
sum:=maj(i)+sum:
end do:
return(sum):
end:
#Question 3

#Question 4
#The first sequence is in OEIS. A000984
#The second sequence is in OEIS. A001850
#The third sequence is in OEIS. A036692
#The fourth sequence is in OEIS. A192365

#Question 5
#The first sequence is in OEIS. A006480
#The second sequence is in OEIS. A268542
#The third sequence is in OEIS. A112019

#Question 6