

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



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



KEYWORD

base,nonn


AUTHOR



EXTENSIONS

a(2)a(9) corrected and more terms from Rémy Sigrist, Aug 16 2019


STATUS

approved



