login
A218246
Recurring digital invariants of order 5.
3
244, 8294, 8299, 9044, 9045, 10933, 24584, 58618, 89883
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
STATUS
approved