OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
Bernard Jacobson, Sums of distinct divisors and sums of distinct units, Proc. Amer. Math. Soc. 15 (1964), 179-183
David A. Corneth, PARI program
FORMULA
a(p) = 9 for odd primes p. - Antti Karttunen, May 19 2021
EXAMPLE
a(2)=7 because the signed divisors of 2 are -2, -1, 1 and 2 and their all possible sums are -1, -2, -3, 0, 1, 2, 3.
a(3)=9 because the signed divisors of 3 are -3, -1, 1 and 3 and their all possible sums are -1, -2, -3, -4, 0, 1, 2, 3, 4.
MATHEMATICA
dsdd[n_]:=Module[{divs=Divisors[n]}, Length[Union[Total/@Subsets[ Join[ divs, -divs], 2Length[divs]]]]]; Array[dsdd, 70] (* Harvey P. Dale, Jan 19 2015 *)
PROG
(PARI)
A199919(n) = { my(ds=concat(apply(x -> -x, divisors(n)), divisors(n)), m=Map(), s, u=0); for(i=0, (2^#ds)-1, s = sumbybits(ds, i); if(!mapisdefined(m, s), mapput(m, s, s); u++)); (u); }; \\ Slow!
sumbybits(v, b) = { my(s=0, i=1); while(b>0, s += (b%2)*v[i]; i++; b >>= 1); (s); }; \\ Antti Karttunen, May 19 2021
(PARI) See PARI-link \\ David A. Corneth, May 20 2021
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Michel Marcus, Dec 22 2012
STATUS
approved