kill(all)$

van=facebook.com/LearningCalculus$

n:20$

f:[]$

for i: 1 thru n do
for j: 1 thru n do
if i*j = n then f:cons(i,f);

reverse(f);

mean(a) := sum(a[i],i,1,length(a))/length(a);

mean(f);

kill(all);