login
Numbers x such that (-1)sigma(x) | sigma(x) - x, where (-1)sigma(x) is defined in A049060 and sigma(x) - x is the sum of the aliquot parts of x (A001065).
1

%I #20 Sep 11 2015 05:52:47

%S 1,2,6,10,36,168,1098,1204,2840,19488,1881124,3105700,445577184,

%T 105314212224,134633963520,2167649138304

%N Numbers x such that (-1)sigma(x) | sigma(x) - x, where (-1)sigma(x) is defined in A049060 and sigma(x) - x is the sum of the aliquot parts of x (A001065).

%C Ratio is equal to 1 for 2, 36, 1204, 2840, 1881124, 3105700, ...

%C a(17) > 10^13. - _Hiroaki Yamanouchi_, Sep 11 2015

%e (-1)sigma(1) = 1, sigma(1) - 1 = 1 - 1 = 0 and 0 / 1 = 0;

%e (-1)sigma(2) = 1, sigma(2) - 2 = 3 - 2 = 1 and 1 / 1 = 1;

%e (-1)sigma(36) = 55, sigma(36) - 36 = 91 - 36 = 55 and 55 / 55 = 1; etc.

%p with(numtheory): P:=proc(q) local a,b,i,j,n; for n from 1 to q do a:=ifactors(n)[2]:

%p b:=1; for i from 1 to nops(a) do b:=b*(-1+sum(a[i][1]^j,j=1..a[i][2])): od:

%p if type((sigma(n)-n)/b,integer) then print(n); fi; od; end: P(10^6);

%Y Cf. A001065, A049060, A258077.

%K nonn,more

%O 1,2

%A _Paolo P. Lava_, May 19 2015

%E a(13)-a(16) from _Hiroaki Yamanouchi_, Sep 11 2015