login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A219112
Numbers that eventually reach 1 under "x -> sum of 5th power of digits of x".
0
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
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
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Nov 12 2012
STATUS
approved