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

 

Logo
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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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