OFFSET
0,3
COMMENTS
Fixed points are: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 and 81.
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 0..10000
FORMULA
EXAMPLE
a(9) = 9^1 = 9;
a(19) = (1 + 9 = 10 => 1 + 0) = 1^2 = 1;
a(85) = (8 + 5 = 13 => 1 + 3) = 4^2 = 16.
MAPLE
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
MATHEMATICA
Join[{0}, Table[ResourceFunction["AdditiveDigitalRoot"][n]^IntegerLength[n], {n, 73}]] (* James C. McMahon, Jun 14 2024 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Alexandre Wajnberg, Jan 03 2006
STATUS
approved