OFFSET
1,2
COMMENTS
Eventually periodic with period 7978, as a(23895) = a(31873) = 3365361711. - Robert Israel, Oct 13 2024
LINKS
Robert Israel, Table of n, a(n) for n = 1..37363
MAPLE
f(0):= 1: for i from 1 to 9 do f(i):= i^i od:
rev:= proc(n) local L, i;
L:= convert(n, base, 10);
add(L[-i]*10^(i-1), i=1..nops(L))
end proc:
R:= 1: x:= 1:
for n from 1 to 25 do
x:= rev(x + convert(map(f, convert(x, base, 10)), `+`));
R:= R, x
od:
R; # Robert Israel, Oct 13 2024
MATHEMATICA
s={1}; fn[n_]:=If[n>0, n^n, 1]; Do[AppendTo[s, IntegerReverse[Total[fn/@IntegerDigits[s[[-1]]]]+s[[-1]]]], {n, 22}]; s (* James C. McMahon, Oct 13 2024 *)
CROSSREFS
KEYWORD
AUTHOR
Jason Earls, Aug 14 2006
EXTENSIONS
Name clarified by Robert Israel, Oct 13 2024
STATUS
approved