OFFSET
1,3
COMMENTS
For all Zumkeller numbers, a(A083207(n)) = 2, which result is obtained when an equally partitioned set of divisors is modified by transferring the divisor 1 from the other set to the other set. - Antti Karttunen, Jan 04 2025
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000 (first 1000 terms from Donovan Johnson)
Jon Maiga, Computer-generated formulas for A082729, Sequence Machine.
FORMULA
EXAMPLE
Divisors of n=18: {1,2,3,6,9,18} -> a(18)=-1+2-3-6-9+18=1.
Divisors of n=15: {1,3,5,15} -> a(15)=-1-3-5+15=6, as
-1-3-5-15<1, 1-3-5-15<1, -1+3-5-15<1, 1+3-5-15<1, -1-3+5-15<1, 1-3+5-15<1,
-1+3+5-15<1, 1+3+5-15<1, 1-3-5+15>6, -1+3-5+15>6, 1+3-5+15>6, -1-3+5+15>6,
1-3+5+15>6, -1+3+5+15>6 and 1+3+5+15>6.
PROG
(PARI) A082729(n) = { my(nd=numdiv(n), d=divisors(n), nn=0); for(j=0, 2^nd-1, s=0; for(h=0, nd-1, if(bittest(j, h)==0, s=s-d[h+1], s=s+d[h+1])); if(s>0, if(!nn || s<nn, nn=s))); (nn); }; \\ Donovan Johnson, Sep 14 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 13 2003
STATUS
approved
