Here is my code but I'm having trouble getting it to work

d := sigma(m)-m; Amicable := proc (m) local n; for m from 2 to 100000 do n := d(m); if d(n) = m then print*m, n end if end do end proc

Would appreciate any advice you guys might have.

Thanks.

 I have been provided with a sequence defined as such,

a_0=1 and b_0=1/surd(2,3)

a_n+1=(1/3)*(a_n+2*b_n) and b_n+1=surd((1/3)*(b_n*(a_n^2+a_n*b_n+b_n^2)),3)

and have been asked to come up with a loop to check the value to which both {a_n} and {b_n} converge.

How do I go about doing this?

Thanks for the help in advance.

How do I get the entire astroid given by the equation x^2/3+y^2/3=1 to show?

I've used implicitplot(x^2/3+y^2/3=1,x=-1..1,y=-1..1), and only 1/4 of the astroid is shown.

thanks for your help.

Given that
3*(sum(cot(m*Pi/(2*M+1))^2, m = 1 .. M))

is a polynomial of degree r in M, find r and the coefficient of M. (The coefficient is an integer)

Any ideas how to go about solving this problem? When i input this particular indefinite sum into Maple it does not generate a polynomial.