login
A214957
Numbers for which the sum of reciprocals of nonzero digits is an integer.
4
0, 1, 10, 11, 22, 100, 101, 110, 111, 122, 202, 212, 220, 221, 236, 244, 263, 326, 333, 362, 424, 442, 623, 632, 1000, 1001, 1010, 1011, 1022, 1100, 1101, 1110, 1111, 1122, 1202, 1212, 1220, 1221, 1236, 1244, 1263, 1326, 1333, 1362, 1424, 1442, 1623, 1632
OFFSET
1,3
COMMENTS
A214950(a(n)) = 1.
LINKS
MATHEMATICA
Join[{0}, Select[Range[2000], IntegerQ[Total[1/DeleteCases[ IntegerDigits[ #], 0]]]&]] (* Harvey P. Dale, Sep 21 2014 *)
PROG
(Haskell)
a214957 n = a214957_list !! (n-1)
a214957_list = [x | x <- [0..], a214950 x == 1]
CROSSREFS
Cf. A034708 (subsequence).
Sequence in context: A022315 A061590 A173900 * A367354 A326627 A309486
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 02 2012
STATUS
approved