OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Sum[2^(i-2) * Prime[i], {i, 1, n}], {n, 1, 10}] (* G. C. Greubel, Oct 15 2016 *)
Accumulate[Table[Prime[i]*2^(i-2), {i, 30}]] (* Harvey P. Dale, Aug 14 2019 *)
PROG
(PARI) a(n) = sum(k=1, n, prime(k)*2^(k-2)); \\ Michel Marcus, Oct 15 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ctibor O. Zizka, Feb 07 2008
STATUS
approved