User Portlet User Portlet

Discussions
How can I force Mathematica to simplify sum containing finite geometric sequence? s=Sum[q^k,{k,0,20}] (* s=1 + q + q^2 + q^3 + q^4 + q^5 + q^6 + q^7 + q^8 + q^9 + q^10 + q^11 + q^12 + q^13 + q^14 + q^15 + q^16 + q^17 + q^18 + q^19...