%I A096931
%S A096931 1011098,2102125,2411305,2711105,4012055,4042055,4086725,4101455,
%T A096931 4105555,4132755,4310145,6021254,6621256,8012765,8013495,8111255,
%U A096931 8202555,9012405,9302165,10011116,10111014,10113255,11011098,12102125
%N A096931 Numbers n for which there are exactly ten k such that n = k + (product 
               of nonzero digits of k).
%e A096931 965738, 978842, 988058, 991658, 1009397, 1010874, 1010936, 1010972, 1011058 
               and 1011082 are the only ten k such that k + (product of nonzero 
               digits of k) = 1011098, hence 1011098 is a term.
%t A096931 f[n_] := Block[{s = Sort[ IntegerDigits[n]]}, While[ s[[1]] == 0, s = 
               Drop[s, 1]]; n + Times @@ s]; t = Table[0, {12500000}]; Do[ a = f[n]; 
               If[a < 12500000, t[[a]]++ ], {n, 12500000}]; Do[ If[ t[[n]] == 10, 
               Print[n]], {n, 12500000}] (from Robert G. Wilson v Jul 16 2004)
%o A096931 (PARI) {c=10;z=3000000;v=vector(z);for(n=1,z+1,k=addpnd(n);if(k<=z,v[k]=v[k]+1));
               for(j=1,length(v),if(v[j]==c,print1(j,",")))} \\for function addpnd 
               see A096922
%Y A096931 Cf. A063114, A096347, A096922, A096923, A096924, A096925, A096926, A096927, 
               A096928, A096929, A096930.
%Y A096931 Sequence in context: A066354 A133219 A043643 this_sequence A066598 A074667 
               A143133
%Y A096931 Adjacent sequences: A096928 A096929 A096930 this_sequence A096932 A096933 
               A096934
%K A096931 nonn,base
%O A096931 1,1
%A A096931 Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jul 15 2004
%E A096931 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 16 2004