%I #19 Jun 14 2024 11:35:54
%S 0,1,2,3,4,5,6,7,8,9,1,4,9,16,25,36,49,64,81,1,4,9,16,25,36,49,64,81,
%T 1,4,9,16,25,36,49,64,81,1,4,9,16,25,36,49,64,81,1,4,9,16,25,36,49,64,
%U 81,1,4,9,16,25,36,49,64,81,1,4,9,16,25,36,49,64,81,1
%N {Digital root of n} raised to the power {number of digits of n}.
%C Fixed points are: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 and 81.
%H Nathaniel Johnston, <a href="/A113018/b113018.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A010888(n)^A055642(n). - _Michel Marcus_, Feb 10 2019
%e a(9) = 9^1 = 9;
%e a(19) = (1 + 9 = 10 => 1 + 0) = 1^2 = 1;
%e a(85) = (8 + 5 = 13 => 1 + 3) = 4^2 = 16.
%p A113018 := proc(n) if(n=0)then return 0:fi: return (((n-1) mod 9) + 1)^length(n): end: seq(A113018(n), n=0..100); # _Nathaniel Johnston_, May 05 2011
%t Join[{0},Table[ResourceFunction["AdditiveDigitalRoot"][n]^IntegerLength[n],{n,73}]] (* _James C. McMahon_, Jun 14 2024 *)
%Y Cf. A010888, A055642.
%Y Cf. A101337, A113019.
%K base,easy,nonn
%O 0,3
%A _Alexandre Wajnberg_, Jan 03 2006