|
|
A085888
|
|
Let r and s be such that r + s = n; a(n) = minimum value of sigma(r) + sigma(s).
|
|
1
|
|
|
2, 4, 5, 7, 7, 9, 9, 11, 12, 15, 13, 15, 15, 17, 18, 21, 19, 21, 21, 23, 24, 27, 25, 27, 28, 31, 30, 36, 31, 33, 33, 35, 36, 39, 38, 44, 39, 41, 42, 45, 43, 45, 45, 47, 48, 51, 49, 51, 52, 55, 54, 60, 55, 57, 58, 61, 60, 66, 61, 63, 63, 65, 66, 69, 68, 74, 69, 71, 72, 75, 73, 75
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
a(p+1) = p+2 if p is a prime.
|
|
LINKS
|
|
|
EXAMPLE
|
a(8) = 9: the partitions are ( 1,7),(2,6),(3,5),(4,4) which give 9,15,10,14 as the sum of sigma functions of both the parts.
|
|
MATHEMATICA
|
Table[Min[Total[#]&/@(DivisorSigma[1, #]&/@({#, n-#}&/@Range[n/2]))], {n, 2, 80}] (* Harvey P. Dale, Oct 05 2017 *)
|
|
PROG
|
(PARI) a(n)=my(best=sigma(n-1)+1); for(k=2, n\2, best=min(best, sigma(k)+sigma(n-k))); best \\ Charles R Greathouse IV, Apr 06 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|