%I #5 Oct 29 2012 13:50:46
%S 244,8294,8299,9044,9045,10933,24584,58618,89883
%N Recurring digital invariants of order 5.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RecurringDigitalInvariant.html">Recurring Digital Invariant</a>
%e 58618: 5^5 + 8^5 + 6^5 + 1^5 + 8^5 = 76438
%e 76438: 7^5 + 6^5 + 4^5 + 3^5 + 8^5 = 58618,
%e so 58618 is an order 5 recurring digital invariant.
%t 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
%Y Cf. A218161, A218247-A218248.
%K base,fini,full,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Oct 24 2012