A214957 Numbers for which the sum of reciprocals of nonzero digits is an integer.

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

Author

Reinhard Zumkeller, Aug 02 2012

Keywords

• nonn
• base

Comments

A214950(a(n)) = 1.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A034708 (subsequence).

Programs

Haskell

a214957 n = a214957_list !! (n-1)
a214957_list = [x | x <- [0..], a214950 x == 1]

Mathematica

Join[{0},Select[Range[2000],IntegerQ[Total[1/DeleteCases[ IntegerDigits[ #],0]]]&]] (* Harvey P. Dale, Sep 21 2014 *)