OFFSET
1,2
FORMULA
a(n) = a(n-1)+A034887(n). [R. J. Mathar, Sep 11 2009]
a(n) = 0.5 log 2/log 10 * n^2 + O(n)
MATHEMATICA
Do[s=s+Length[IntegerDigits[2^n]]; Print[s], {n, 1, 128}]
nxt[{n_, a_}]:={n+1, a+IntegerLength[2^(n+1)]}; NestList[nxt, {1, 1}, 60][[All, 2]] (* Harvey P. Dale, Nov 11 2022 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Labos Elemer, May 27 2002
EXTENSIONS
An incorrect g.f. was deleted by N. J. A. Sloane, Sep 13 2009
Formula from Charles R Greathouse IV, Apr 28 2010
STATUS
approved