|
|
A293438
|
|
Product of deficiencies of proper divisors of n.
|
|
2
|
|
|
1, 1, 1, 1, 1, 2, 1, 1, 2, 4, 1, 0, 1, 6, 8, 1, 1, 0, 1, 8, 12, 10, 1, 0, 4, 12, 10, 24, 1, 0, 1, 1, 20, 16, 24, 0, 1, 18, 24, -16, 1, 0, 1, 80, 240, 22, 1, 0, 6, 152, 32, 120, 1, 0, 40, 0, 36, 28, 1, 0, 1, 30, 600, 1, 48, 0, 1, 224, 44, 4224, 1, 0, 1, 36, 912, 288, 60, 0, 1, 160, 140, 40, 1, 0, 64, 42, 56, 320, 1, 0, 72, 440, 60, 46, 72
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
COMMENTS
|
There are only 643 negative values in range 1 .. 16384.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Product_{d|n, d<n} A033879(d).
|
|
EXAMPLE
|
The proper divisors of 15 are 1, 3, 5. Their deficiencies (A033879) are 1, 2, 4. Thus a(15) = 1*2*4 = 8.
The proper divisors of 18 are 1, 2, 3, 6, 9. Their deficiencies are 1, 1, 2, 0, 5, thus a(18) = 1*1*2*0*5 = 0.
The proper divisors of 40 are 1, 2, 4, 5, 8, 10, 20. Their deficiencies are 1, 1, 1, 4, 1, 2, -2, thus a(40) = 1 * 1 * 1 * 4 * 1 * 2 * -2 = -16.
|
|
PROG
|
(PARI)
A293438(n) = { my(m=1); fordiv(n, d, if(d<n, m *= A033879(d))); (m); };
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|