|
Search: id:A096931
|
|
|
| A096931 |
|
Numbers n for which there are exactly ten k such that n = k + (product of nonzero digits of k). |
|
+0
14
|
|
| 1011098, 2102125, 2411305, 2711105, 4012055, 4042055, 4086725, 4101455, 4105555, 4132755, 4310145, 6021254, 6621256, 8012765, 8013495, 8111255, 8202555, 9012405, 9302165, 10011116, 10111014, 10113255, 11011098, 12102125
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
965738, 978842, 988058, 991658, 1009397, 1010874, 1010936, 1010972, 1011058 and 1011082 are the only ten k such that k + (product of nonzero digits of k) = 1011098, hence 1011098 is a term.
|
|
MATHEMATICA
|
f[n_] := Block[{s = Sort[ IntegerDigits[n]]}, While[ s[[1]] == 0, s = Drop[s, 1]]; n + Times @@ s]; t = Table[0, {12500000}]; Do[ a = f[n]; If[a < 12500000, t[[a]]++ ], {n, 12500000}]; Do[ If[ t[[n]] == 10, Print[n]], {n, 12500000}] (from Robert G. Wilson v Jul 16 2004)
|
|
PROGRAM
|
(PARI) {c=10; z=3000000; 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, A096923, A096924, A096925, A096926, A096927, A096928, A096929, A096930.
Adjacent sequences: A096928 A096929 A096930 this_sequence A096932 A096933 A096934
Sequence in context: A066354 A133219 A043643 this_sequence A066598 A074667 A143133
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jul 15 2004
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 16 2004
|
|
|
Search completed in 0.002 seconds
|
