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 A214958 #10 Jul 13 2013 12:04:30 %S A214958 1,2,3,4,5,6,7,8,9,10,20,22,30,36,40,44,50,60,63,66,70,80,88,90,100, %T A214958 200,202,220,236,244,263,300,306,326,333,360,362,400,404,424,440,442, %U A214958 488,500,600,603,606,623,630,632,660,666,700,800,808,848,880,884 %N A214958 Numbers for which the sum of reciprocals of nonzero digits is reciprocal of an integer. %C A214958 A214949(a(n)) = 1. %H A214958 Reinhard Zumkeller, <a href="/A214958/b214958.txt">Table of n, a(n) for n = 1..10000</a> %t A214958 nsrQ[n_] := Numerator[Total[1/Select[IntegerDigits[n], # > 0 &]]] == 1; Select[Range[884], nsrQ] (* _Jayanta Basu_, Jul 13 2013 *) %o A214958 (Haskell) %o A214958 a214958 n = a214958_list !! (n-1) %o A214958 a214958_list = [x | x <- [0..], a214949 x == 1] %Y A214958 Cf. A037264 (subsequence). %K A214958 nonn,base %O A214958 1,2 %A A214958 _Reinhard Zumkeller_, Aug 02 2012