OFFSET
0,5
COMMENTS
Starting with a(14)=783, a(n) = 2*a(n-1) - (1 or 0).
EXAMPLE
MATHEMATICA
nxt[{a_, b_}]:={b, ((a+b)(b-a+1))/2}; Join[{1}, IntegerLength/@ Transpose[ NestList[nxt, {0, 2}, 31]][[2]]] (* Harvey P. Dale, Feb 14 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 18 2005
STATUS
approved