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

1014, 8305, 18305, 26425, 30205, 30725, 31414, 39186, 41156, 51358, 71110, 71136, 72505, 74470, 80305, 82765, 90985, 100405, 100786, 100855, 101014, 101098, 101126, 102072, 110474, 112418, 118305, 126425, 130205, 130725, 131414, 139186

Offset: 1

Author

Klaus Brockhaus, Jul 15 2004

Keywords

• nonn
• base

Examples

			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.
		

Crossrefs

Cf. A063114, A096347, A096922 - A096927, A096929 - A096931.

Programs

Mathematica

Select[Tally[Table[n+Times@@Select[IntegerDigits[n],#!=0&],{n,200000}]], #[[2]] == 7&][[All,1]]//Sort (* Harvey P. Dale, Apr 21 2018 *)

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