wxMaxima 0.7.5 http://wxmaxima.sourceforge.net
Maxima 5.16.3 http://maxima.sourceforge.net
Using Lisp SBCL 1.0.15
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.

(%i1) load(orthopoly);

(%i2) Max_rE3(M) := last(sort(solve(legendre_p(M+1,x), x)))$

(%i3) Max_rE3(1);

(%i4) Max_rE3(2);

(%i5) Max_rE3(3);

(%i6) float(%);

(%i7) Max_rE3(4);

(%i8) float(%);

(%i9) g_rE3(M,n) := ratsimp( subst( Max_rE3(M), legendre_p(n,x)))$

(%i10) map( g_rE3, [1], [1]);

(%i11) map( g_rE3, [2, 2], [1, 2]);

(%i12) map( g_rE3, [3,3,3], [1,2,3]);

(%i13) float(%);

(%i14) map( g_rE3, [4,4,4,4], [1,2,3,4]);

(%i15) float(%);

(%i16) quit;

(%i17) quit();