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

Links

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

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

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

Sequence in context: A126239 A120214 A251267 * A234754 A023076 A261291

Adjacent sequences: A096925 A096926 A096927 * A096929 A096930 A096931

Keyword

nonn,base

Author

Klaus Brockhaus, Jul 15 2004

Status

approved