This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A219112 #6 Mar 13 2015 22:57:09 %S A219112 1,10,100,1000,10000,100000,1000000,1111222,1112122,1112212,1112221, %T A219112 1121122,1121212,1121221,1122112,1122121,1122211,1211122,1211212, %U A219112 1211221,1212112,1212121,1212211,1221112,1221121,1221211,1222111,2111122,2111212,2111221,2112112 %N A219112 Numbers that eventually reach 1 under "x -> sum of 5th power of digits of x". %e A219112 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 A219112 Select[Range[50000], FixedPoint[Total[IntegerDigits[#]^5]&, #, 10]==1&] %Y A219112 Cf. A007770, A035504, A219111. %K A219112 nonn,base %O A219112 1,2 %A A219112 _Michel Lagneau_, Nov 12 2012