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,1

Links

Table of n, a(n) for n=1..24.

Example

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.

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

Prog

(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

Crossrefs

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

Sequence in context: A306517 A043643 A269564 * A210274 A252916 A340435

Adjacent sequences: A096928 A096929 A096930 * A096932 A096933 A096934

Keyword

nonn,base

Author

Klaus Brockhaus, Jul 15 2004

Extensions

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

Status

approved