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

Author

Michel Lagneau, Nov 12 2012

Keywords

• nonn
• base

Examples

			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.
		

Crossrefs

Cf. A007770, A035504, A219111.

Programs

Mathematica

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