Как сохранить несколько переменных с повторяющимся именем в системе Mathematica?

Я хочу создать несколько переменных с повторяющимися именами в Mathematica, что-то вроде этого:

Do["f" <> ToString[i] = i*2, {i, 1, 20}]

где я получаю f1=2, f2=4, f3=6,... и так далее.

Я ошибка:

Set::write: Tag StringJoin in f<>1 is Protected. >>

Любая помощь будет здорово. Спасибо!