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)].

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

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