$n=<>;for(1..$n){$m=$r=1;$l=0;$i=<>;for(2..$i){$m+=$l;$r+=($m)**2;$l=$m-$l}print "$r\n"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page