login
A218247
Recurring digital invariants of order 6.
2
17148, 63804, 93531, 239459, 282595
OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Recurring Digital Invariant
EXAMPLE
63804: 6^6 + 3^6 + 8^6 + 0^6 + 4^6 = 313625
313625: 3^6 + 1^6 + 3^6 + 6^6 + 2^6 + 5^6 = 63804,
so 63804 is an order 6 recurring digital invariant.
MATHEMATICA
lst = {}; f[n_] := Total[IntegerDigits[n]^6]; Do[a = n; Do[a = f[a]; If[a < n, Break[]]; If[a == n && ! n == f[n], AppendTo[lst, n]; Break[]], {30}], {n, 10^6}]; lst
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
STATUS
approved