A096931 Numbers n for which there are exactly ten k such that n = k + (product of nonzero digits of k).

1011098, 2102125, 2411305, 2711105, 4012055, 4042055, 4086725, 4101455, 4105555, 4132755, 4310145, 6021254, 6621256, 8012765, 8013495, 8111255, 8202555, 9012405, 9302165, 10011116, 10111014, 10113255, 11011098, 12102125

Offset: 1

Author

Klaus Brockhaus, Jul 15 2004

Keywords

• nonn
• base

Examples

			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.
		

Crossrefs

Cf. A063114, A096347, A096922, A096923, A096924, A096925, A096926, A096927, A096928, A096929, A096930.

Programs

Mathematica

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 *)

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

Extensions

More terms from Robert G. Wilson v, Jul 16 2004