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,3

Comments

A214950(a(n)) = 1.

Links

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

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

Adjacent sequences: A214954 A214955 A214956 * A214958 A214959 A214960

Keyword

nonn,base

Author

Reinhard Zumkeller, Aug 02 2012

Status

approved