OFFSET
1,1
MATHEMATICA
s=0; Do[s=s+Apply[Plus, IntegerDigits[2^n]]; Print[s], {n, 1, 128}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, May 27 2002
STATUS
approved