here are two procedures f and g which can do what you want: f := proc(n) local A, i; A := [1]; for i to n - 1 do A := [op(A), A[nops(A)] + 2] end do; return A end proc; > f(10); [1, 3, 5, 7, 9, 11, 13, 15, 17, 19] g := proc(m) local A, n, i; A := []; n := 0; i := 0; while i < m do if n^3 mod 2 = 1 then A := [op(A), n^3]; i := i + 1 end if; n := n + 1 end do; return A end proc; > g(10); [1, 27, 125, 343, 729, 1331, 2197, 3375, 4913, 6859] >

if your result has this form: {{t1,t2},{t3,t4},....,} i think that you have: convert([seq((24-2*i)!/(2!*(24-2*i-2)!),i=0..11)],`*`)/(12!) =316234143225 possible results. you have (24!)/(2!*(24-2)!)=276 possible choices of 2 tables (parmi) the 24 tables.

bonjour thunwa, j'ai crée un worksheet nommé "chaussettes" sur maple 7 qui résoud un problème: déterminer le nombre minimum de chaussettes qu'il faut prendre pour etre certain d'avoir au moins k chaussettes identiques,sachant qu'il y a x couleurs différentes et x1 chaussettes de couleur 1,etc ....,xn chaussettes de couleurs n. la procédure est la suivante : chaussette(x,[x1, ,xn],k); cette procédure utilise une autre procédure CALCU qui résoud ton probleme: on fait CALCU(ki,n,[seq(i,i=0..n)]); avec ki le nombre de termes (ici "x,y,z" donc ki=3) et n (x+y+z=n) (pour déterminer les couples (x1, ,xki) avec xi appartenant à l tt i et x1+.. +xki=n on fait CALCU(ki,n,l);) tu peux uploader le worksheet sur "xavier".