|
|
A218247
|
|
Recurring digital invariants of order 6.
|
|
2
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
|