%I #6 Mar 13 2015 22:57:09
%S 1,10,100,1000,10000,100000,1000000,1111222,1112122,1112212,1112221,
%T 1121122,1121212,1121221,1122112,1122121,1122211,1211122,1211212,
%U 1211221,1212112,1212121,1212211,1221112,1221121,1221211,1222111,2111122,2111212,2111221,2112112
%N Numbers that eventually reach 1 under "x -> sum of 5th power of digits of x".
%e 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.
%t Select[Range[50000], FixedPoint[Total[IntegerDigits[#]^5]&, #, 10]==1&]
%Y Cf. A007770, A035504, A219111.
%K nonn,base
%O 1,2
%A _Michel Lagneau_, Nov 12 2012