• 2021-04-14
    For[i=1;f=Sin[x],i<3,i++,f=Sin[1+f];Print[f]]? Sin[1+Sin[x]] ; ; ; ; ; ;;Sin[1+Sin[1+Sin[x]]]|Sin[1+Sin[x]]Sin[Sin[2+Sin[x]]]|Sin[Sin[1+x]]Sin[1+Sin[1+Sin[x]]]|Sin[Sin[1+x]]Sin[Sin[1+Sin[1+x]]]