A218246 Recurring digital invariants of order 5.

244, 8294, 8299, 9044, 9045, 10933, 24584, 58618, 89883

Offset

1,1

Links

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

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

Cf. A218161, A218247-A218248.

Sequence in context: A002594 A194134 A085440 * A217471 A146552 A263948

Adjacent sequences: A218243 A218244 A218245 * A218247 A218248 A218249

Keyword

base,fini,full,nonn

Author

Arkadiusz Wesolowski, Oct 24 2012

Status

approved