OFFSET
1,2
COMMENTS
A214949(a(n)) = 1.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
nsrQ[n_] := Numerator[Total[1/Select[IntegerDigits[n], # > 0 &]]] == 1; Select[Range[884], nsrQ] (* Jayanta Basu, Jul 13 2013 *)
PROG
(Haskell)
a214958 n = a214958_list !! (n-1)
a214958_list = [x | x <- [0..], a214949 x == 1]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 02 2012
STATUS
approved