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 A214957 #10 Sep 21 2014 13:49:49 %S A214957 0,1,10,11,22,100,101,110,111,122,202,212,220,221,236,244,263,326,333, %T A214957 362,424,442,623,632,1000,1001,1010,1011,1022,1100,1101,1110,1111, %U A214957 1122,1202,1212,1220,1221,1236,1244,1263,1326,1333,1362,1424,1442,1623,1632 %N A214957 Numbers for which the sum of reciprocals of nonzero digits is an integer. %C A214957 A214950(a(n)) = 1. %H A214957 Reinhard Zumkeller, <a href="/A214957/b214957.txt">Table of n, a(n) for n = 1..10000</a> %t A214957 Join[{0},Select[Range[2000],IntegerQ[Total[1/DeleteCases[ IntegerDigits[ #],0]]]&]] (* _Harvey P. Dale_, Sep 21 2014 *) %o A214957 (Haskell) %o A214957 a214957 n = a214957_list !! (n-1) %o A214957 a214957_list = [x | x <- [0..], a214950 x == 1] %Y A214957 Cf. A034708 (subsequence). %K A214957 nonn,base %O A214957 1,3 %A A214957 _Reinhard Zumkeller_, Aug 02 2012