#Please do not post homework
#Ravali Bommanaboina 10/18/20, Assignment 12
#Question 1
CPg:=proc(L) local i,j,final:
final:=[0]:
if( nops(L)=1) then
return(L):
end if:
for i in L do
 final:=CP(final,i):
od:
return(final):
end:

#Question 2

AveGF:=proc(f,x):
subs(x=1,diff(f,x))/subs(x=1,f):
end:

kthMomentGF:=proc(f,x,k) local mu,f1,i:
mu:=AveGF(f,x):
f1:=f/x^mu/subs(x=1,f):
for i from 1 to k do
f1:=expand(x*diff(f1,x)):
od:
subs(x=1,f1):
end:

#Question 3

ScaledMomentGF:=proc(f,x,k) local i;
return(kthMomentGF(f,x,k)/(kthMomentGF(f,x,2)^(k/2))):
end:

#Question 4
#sequence -> [1,0,3,0,15,0,105,0,945]
#OEIS -> A123023