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

2072, 3525, 9170, 9190, 11098, 11116, 11474, 11564, 12072, 12125, 13525, 19170, 19190, 20165, 20228, 20445, 21125, 24305, 29395, 30488, 31105, 31255, 31305, 31825, 40339, 40344, 40455, 41255, 42355, 45555, 50745, 51175, 54742, 58300

Offset: 1

Author

Klaus Brockhaus, Jul 15 2004

Keywords

• nonn
• base

Examples

			1688, 1928, 1991, 2036, 2052 and 2060 are the only six k such that k + (product of nonzero digits of k) = 2072, hence 2072 is a term.
		

Crossrefs

Cf. A063114, A096347, A096922 - A096926, A096928 - A096931.

Programs

Mathematica

With[{nn=60000},Select[Tally[Table[n+Times@@(IntegerDigits[n]/.(0->1)),{n,nn}]],#[[2]]==6&&#[[1]]<=nn&]][[All,1]]//Sort(* Harvey P. Dale, Aug 16 2018 *)

PARI

{c=6;z=60000;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