A219112 Numbers that eventually reach 1 under "x -> sum of 5th power of digits of x".

1, 10, 100, 1000, 10000, 100000, 1000000, 1111222, 1112122, 1112212, 1112221, 1121122, 1121212, 1121221, 1122112, 1122121, 1122211, 1211122, 1211212, 1211221, 1212112, 1212121, 1212211, 1221112, 1221121, 1221211, 1222111, 2111122, 2111212, 2111221, 2112112

Offset

1,2

Links

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

Example

1112122 is in the sequence because 1^5 +1^5+1^5+2^5+1^5 +2^5+2^5 = 100 and 1^5 + 0^5 + 0^5 = 1.

Mathematica

Select[Range[50000], FixedPoint[Total[IntegerDigits[#]^5]&, #, 10]==1&]

Crossrefs

Cf. A007770, A035504, A219111.

Sequence in context: A119084 A136875 A135654 * A232661 A029800 A232662

Adjacent sequences: A219109 A219110 A219111 * A219113 A219114 A219115

Keyword

nonn,base

Author

Michel Lagneau, Nov 12 2012

Status

approved