|
|
A096928
|
|
Numbers n for which there are exactly seven k such that n = k + (product of nonzero digits of k).
|
|
8
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|