OFFSET
1,1
REFERENCES
Ken Follett, Code to Zero, Dutton, NY 2000, p. 84.
LINKS
Tim Johannes Ohrtmann, Table of n, a(n) for n = 1..32
EXAMPLE
136 => 1^3+3^3+6^3=244 => 2^3+4^3+4^3=136.
2178 => 2^4+1^4+7^4+8^4=6514 => 6^4+5^4+1^4+4^4=2178.
MATHEMATICA
f[n_] := Plus @@ (IntegerDigits[n]^Floor[Log[10, n] + 1]); Do[ lst = NestList[f, n, 2]; If[lst[[1]] == lst[[3]] != lst[[2]], Print[n]], {n, 110000000}] (* Robert G. Wilson v, May 21 2005 *)
CROSSREFS
KEYWORD
nonn,base,fini
AUTHOR
Allyson A. Wilson (Foxtail(AT)southwind.net), May 04 2005
EXTENSIONS
a(11)-a(20) from Tim Johannes Ohrtmann, Aug 27 2015
STATUS
approved