login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A214959 Numbers for which the sum of reciprocals of nonzero digits = 1. 5
1, 10, 22, 100, 202, 220, 236, 244, 263, 326, 333, 362, 424, 442, 623, 632, 1000, 2002, 2020, 2036, 2044, 2063, 2200, 2306, 2360, 2404, 2440, 2488, 2603, 2630, 2666, 2848, 2884, 3026, 3033, 3062, 3206, 3260, 3303, 3330, 3366, 3446, 3464, 3602, 3620, 3636 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Intersection of A214957 and A214958: A214949(a(n))*A214950(a(n)) = 1.

LINKS

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

MATHEMATICA

idnQ[n_]:=Total[1/Select[IntegerDigits[n], #>0&]]==1; Select[Range[ 4000], idnQ] (* Harvey P. Dale, Dec 08 2012 *)

PROG

(Haskell)

import Data.Ratio ((%), numerator, denominator)

a214959 n = a214959_list !! (n-1)

a214959_list = [x | x <- [0..], f x 0] where

   f 0 v = numerator v == 1 && denominator v == 1

   f u v | d > 0     = f u' (v + 1 % d)

         | otherwise = f u' v  where (u', d) = divMod u 10

(MAGMA) SumReciprocalsDigits:=func<n | &+[1/d: d in Intseq(n) | not IsZero(d)]>; [n: n in [1..3636] | IsOne(SumReciprocalsDigits(n))]; // Bruno Berselli, Aug 02 2012

CROSSREFS

Cf. A037268 (subsequence).

Sequence in context: A043918 A033459 A255048 * A054095 A125618 A154033

Adjacent sequences:  A214956 A214957 A214958 * A214960 A214961 A214962

KEYWORD

nonn,base

AUTHOR

Reinhard Zumkeller, Aug 02 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 25 01:17 EDT 2019. Contains 321450 sequences. (Running on oeis4.)