Clojure (49 characters/bytes)
Uses the fact that * called with no args evaluates to 1:
(let[b(inc(*))j(+(* b b b)b)](+(* b j j j)j b b))
Using the same trick and doing string concatenation instead of arithmetic, the lowest I could get was 51 chars:
(let[n(*)t(+ n n)z(+)f(+ t t)](print(str t z n f)))