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