OFFSET
0,11
FORMULA
From Amiram Eldar, Nov 18 2020: (Start)
Sum_{n>=1} 1/a(n) = A308314. (End)
MATHEMATICA
dd[n_]:=Module[{d=IntegerLength[n]}, d^d]; Join[{1}, Array[dd, 150]] (* Harvey P. Dale, Mar 16 2013 *)
PROG
(PARI) a(n) = my(d=#Str(n)); d^d; \\ Michel Marcus, Nov 18 2020
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Odimar Fabeny, May 16 2008
EXTENSIONS
Edited by N. J. A. Sloane, Sep 29 2011, at the suggestion of Franklin T. Adams-Watters
STATUS
approved