Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS". Other ways to donate
0,11
Table of n, a(n) for n=0..120.
dd[n_]:=Module[{d=IntegerLength[n]}, d^d]; Join[{1}, Array[dd, 150]] (* Harvey P. Dale, Mar 16 2013 *)
Cf. A138902.
Sequence in context: A251539 A123932 A010709 * A032564 A141248 A273339
Adjacent sequences: A138905 A138906 A138907 * A138909 A138910 A138911
easy,nonn,base
Odimar Fabeny, May 16 2008
Edited by N. J. A. Sloane, Sep 29 2011, at the suggestion of Franklin T. Adams-Watters.
approved