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

Links

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

Example

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.

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 *)

Prog

(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

Crossrefs

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

Sequence in context: A035871 A221052 A062913 * A076425 A249654 A180921

Adjacent sequences: A096924 A096925 A096926 * A096928 A096929 A096930

Keyword

nonn,base

Author

Klaus Brockhaus, Jul 15 2004

Status

approved