OFFSET
1,1
EXAMPLE
678, 854, 933, 942, 960, 1007 and 1012 are the only seven k such that k + (product of nonzero digits of k) = 1014, hence 1014 is a term.
MATHEMATICA
Select[Tally[Table[n+Times@@Select[IntegerDigits[n], #!=0&], {n, 200000}]], #[[2]] == 7&][[All, 1]]//Sort (* Harvey P. Dale, Apr 21 2018 *)
PROG
(PARI) {c=7; z=140000; 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
KEYWORD
nonn,base
AUTHOR
Klaus Brockhaus, Jul 15 2004
STATUS
approved