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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A083163 Define a function f(k) by f(k) = (k*a*b*c...)/{d*e*f...), where a,b,c,...are those nonzero digits of k which do not divide k and d,e,f,... are those nonzero digits of k which divide k. a(n) = Floor[f(k)]. 0
 1, 1, 1, 1, 1, 1, 1, 1, 1, 10, 11, 6, 39, 56, 3, 96, 119, 144, 171, 10, 42, 5, 138, 3, 10, 78, 378, 112, 522, 10, 93, 48, 3, 408, 21, 2, 777, 912, 117, 10, 164, 84, 516, 2, 36, 1104, 1316, 1, 1764, 10, 255, 130, 795, 1080, 2, 1680, 1995, 2320, 2655, 10, 366 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,10 COMMENTS k = 22 is the first case for which f(k) is not an integer itself. LINKS Table of n, a(n) for n=1..61. PROG (PARI) a(n) = my (f=n, d=digits(n)); for (i=1, #d, if (d[i], if (n%d[i], f*=d[i], f/=d[i]))); floor(f) \\ Rémy Sigrist, Aug 16 2019 CROSSREFS Sequence in context: A071203 A105743 A105835 * A004451 A352390 A004499 Adjacent sequences: A083160 A083161 A083162 * A083164 A083165 A083166 KEYWORD base,nonn AUTHOR Amarnath Murthy, Apr 25 2003 EXTENSIONS a(2)-a(9) corrected and more terms from Rémy Sigrist, Aug 16 2019 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 September 27 06:33 EDT 2023. Contains 365674 sequences. (Running on oeis4.)