A214949 Numerator of sum of reciprocals of all nonzero digits of n in decimal representation.

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 3, 1, 5, 3, 7, 2, 9, 5, 11, 1, 4, 5, 2, 7, 8, 1, 10, 11, 4, 1, 5, 3, 7, 1, 9, 5, 11, 3, 13, 1, 6, 7, 8, 9, 2, 11, 12, 13, 14, 1, 7, 2, 1, 5, 11, 1, 13, 7, 5, 1, 8, 9, 10, 11, 12, 13, 2, 15, 16

Offset

0,12

Links

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

Formula

a(A037264(n)) = a(A037268(n)) = a(A214958(n)) = a(A214959(n)) = 1;

a(n) = a(A004719(n)).

Mathematica

nsr[n_] := Numerator[Total[1/Select[IntegerDigits[n], # > 0 &]]]; nsr /@ Range[0, 79] (* Jayanta Basu, Jul 13 2013 *)

Prog

(Haskell)
import Data.Ratio ((%), numerator)
a214949 = f 0 where
   f y 0 = numerator y
   f y x = f (y + if d == 0 then 0 else 1 % d) x'
           where (x', d) = divMod x 10
(PARI) a(n) = my(d=digits(n)); numerator(sum(k=1, #d, if (d[k], 1/d[k]))); \\ Michel Marcus, Jan 26 2022

Crossrefs

Cf. A004719, A037264, A037268, A214958, A214959.

Cf. A214950 (denominators).

Sequence in context: A263131 A349315 A274206 * A067453 A203814 A373211

Adjacent sequences: A214946 A214947 A214948 * A214950 A214951 A214952

Keyword

nonn,base,frac

Author

Reinhard Zumkeller, Aug 02 2012

Status

approved