

A211223


Numbers k for which sigma(k) = sigma(x) + sigma(y), where k = x + y.


11



3, 8, 9, 10, 15, 20, 21, 30, 32, 33, 39, 40, 49, 51, 55, 56, 57, 62, 63, 69, 70, 75, 85, 87, 88, 90, 92, 93, 94, 96, 99, 104, 105, 108, 110, 111, 114, 116, 117, 123, 125, 126, 128, 129, 130, 134, 135, 136, 140, 141, 145, 147, 150, 152, 153, 155, 158, 159, 160
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS



LINKS



EXAMPLE

sigma(49) = sigma(8) + sigma(41) that is 57 = 15 + 42.
sigma(93) = sigma(31) + sigma(62) that is 128 = 32 + 96.
In more than one way: sigma(117) = sigma(41) + sigma(76) = sigma(52) + sigma(65) = sigma(56) + sigma(61) that is 182 = 42 + 140 = 98 + 84 = 120 + 62.


MAPLE

with(numtheory);
local i, n;
for n from 1 to q do
for i from 1 to trunc(n/2) do
if sigma(i)+sigma(ni)=sigma(n) then print(n); break; fi;
od; od; end:


MATHEMATICA

sigmaPartitionQ[n_] := With[{s = DivisorSigma[1, n], ip = IntegerPartitions[ n, {2}]}, MemberQ[ip, {x_, y_} /; s == DivisorSigma[ 1, x] + DivisorSigma[ 1, y]]]; Select[Range[160], sigmaPartitionQ] (* JeanFrançois Alcover, Aug 19 2013 *)


PROG

(PARI) is(n)=my(t=sigma(n)); for(i=1, n\2, if(sigma(i)+sigma(ni)==t, return(1))) \\ Charles R Greathouse IV, May 04 2012
(Haskell)
a211223 n = a211223_list !! (n1)
a211223_list = map (+ 1) $ findIndices (> 0) a211225_list


CROSSREFS



KEYWORD

nonn,nice


AUTHOR



STATUS

approved



