# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a096931
Showing 1-1 of 1

%I A096931 #7 Jun 12 2019 14:22:36
%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}] (* _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.
%K A096931 nonn,base
%O A096931 1,1
%A A096931 _Klaus Brockhaus_, Jul 15 2004
%E A096931 More terms from _Robert G. Wilson v_, Jul 16 2004

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE