OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Recurring Digital Invariant
EXAMPLE
58618: 5^5 + 8^5 + 6^5 + 1^5 + 8^5 = 76438
76438: 7^5 + 6^5 + 4^5 + 3^5 + 8^5 = 58618,
so 58618 is an order 5 recurring digital invariant.
MATHEMATICA
lst = {}; f[n_] := Total[IntegerDigits[n]^5]; Do[a = n; Do[a = f[a]; If[a < n, Break[]]; If[a == n && ! n == f[n], AppendTo[lst, n]; Break[]], {28}], {n, 10^5}]; lst
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Arkadiusz Wesolowski, Oct 24 2012
STATUS
approved