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

11014, 100774, 111014, 412055, 510142, 511146, 633296, 931395, 983025, 1008305, 1011125, 1031414, 1100774, 1101642, 1108305, 1111014, 1412055, 1510142, 1511146, 1633296, 1931395, 1983025, 2011125, 2011305, 2012725, 2110145

Offset

1,1

Links

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

Example

88486, 96454, 99073, 99154, 99316, 100594, 100654, 100718 and 100732 are the only nine k such that k + (product of nonzero digits of k) = 100774, hence 100774 is a term.

Mathematica

Select[Tally[Table[n+Times@@DeleteCases[IntegerDigits[n], 0], {n, 2111000}]], #[[2]]==9&][[All, 1]]//Sort (* Harvey P. Dale, Sep 15 2019 *)

Prog

(PARI) {c=9; z=2120000; 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 - A096929, A096931.

Sequence in context: A267811 A267934 A218598 * A233720 A285845 A160711

Adjacent sequences: A096927 A096928 A096929 * A096931 A096932 A096933

Keyword

nonn,base

Author

Klaus Brockhaus, Jul 15 2004

Status

approved