The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A096931 Numbers n for which there are exactly ten k such that n = k + (product of nonzero digits of k). 13
 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; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS 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}] (* Robert G. Wilson v, Jul 16 2004 *) PROG (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. Sequence in context: A306517 A043643 A269564 * A210274 A252916 A340435 Adjacent sequences:  A096928 A096929 A096930 * A096932 A096933 A096934 KEYWORD nonn,base AUTHOR Klaus Brockhaus, Jul 15 2004 EXTENSIONS More terms from Robert G. Wilson v, Jul 16 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 24 05:06 EDT 2022. Contains 354005 sequences. (Running on oeis4.)