f_n=n*(f_{n-1}) if f(1)=-1[br][br]Execute[Join[{"f_{1} =-1"}, Sequence["f_{"+(i)+"}="+i+"*f_{"+(i-1)+"}",i, 2, 10]]][br][br]f_n=(f_{n-1})+n if f(1)=2[br][br]Execute[Join[{"f_{1} =2"}, Sequence["f_{"+(i)+"}=f_{"+(i-1)+"}+"+i,i, 2, 10]]][br][br]f_n=- f_{n-1}*(1+1/n) if f(1)=2[br][br]Execute[Join[{"f_{1}=2"},Sequence["f_{"+(i)+"}=- f_{"+(i-1)+"}*(1+1/"+i+")",i, 2, 10]]][br][br]=======[br][br]f_n=(f_{n-1})+n if f(1)=2[br][br]Execute(Join({{"l2={2}"}, Sequence("SetValue(l2," + (n) + "," + (n) + " + l2(" + (n) + "-1))", n, 2, 10)}))[br][br]=======[br][br]f_n=- f_{n-1}*(1+1/n) if f(1)=2[br][br]Execute(Join({{"l2={2}"}, Sequence("SetValue(l2," + (n) + ",-(1+1/" + (n) + ") * l2(" + (n) + "-1))", n, 2, 10)}))[br][br]f_n=(f_{n-1})+n if f(1)=2[br][br]Zip(Element(L, 2), L, IterationList({Element(lst, 1) + 1, Element(lst, 1) + 1 + Element(lst, 2)}, lst, {{1, 2}}, 9))[br][br]====[br][br]f_n=- f_{n-1}*(1+1/n) if f(1)=2[br][br]Zip(Element(L, 2), L, IterationList({Element(lst, 1) + 1, -(1+1/(Element(lst, 1) + 1)) * Element(lst, 2)}, lst, {{1, 2}}, 9))