|
%I #10 Jul 13 2013 12:04:30
%S 1,2,3,4,5,6,7,8,9,10,20,22,30,36,40,44,50,60,63,66,70,80,88,90,100,
%T 200,202,220,236,244,263,300,306,326,333,360,362,400,404,424,440,442,
%U 488,500,600,603,606,623,630,632,660,666,700,800,808,848,880,884
%N Numbers for which the sum of reciprocals of nonzero digits is reciprocal of an integer.
%C A214949(a(n)) = 1.
%H Reinhard Zumkeller, <a href="/A214958/b214958.txt">Table of n, a(n) for n = 1..10000</a>
%t nsrQ[n_] := Numerator[Total[1/Select[IntegerDigits[n], # > 0 &]]] == 1; Select[Range[884], nsrQ] (* _Jayanta Basu_, Jul 13 2013 *)
%o (Haskell)
%o a214958 n = a214958_list !! (n-1)
%o a214958_list = [x | x <- [0..], a214949 x == 1]
%Y Cf. A037264 (subsequence).
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, Aug 02 2012
|
