A218247 Recurring digital invariants of order 6.

17148, 63804, 93531, 239459, 282595

Offset

1,1

Links

Table of n, a(n) for n=1..5.

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

Cf. A218161, A218246, A218248.

Sequence in context: A361349 A121669 A247697 * A235891 A251207 A233993

Adjacent sequences: A218244 A218245 A218246 * A218248 A218249 A218250

Keyword

base,fini,full,nonn

Author

Arkadiusz Wesolowski, Oct 24 2012

Status

approved