login
Even refactorable numbers k such that the number of odd divisors of k and the number of even divisors of k are both even divisors of k.
1

%I #13 Jan 15 2020 05:50:24

%S 12,24,80,180,240,252,360,396,468,480,504,560,612,684,720,792,828,880,

%T 896,936,972,1040,1044,1116,1200,1224,1332,1344,1360,1368,1440,1476,

%U 1520,1548,1620,1656,1692,1840,1908,1944,2000,2088,2124,2196,2232,2320

%N Even refactorable numbers k such that the number of odd divisors of k and the number of even divisors of k are both even divisors of k.

%C Note that the number of even divisors s is necessarily a multiple of the number of odd divisors r.

%H Amiram Eldar, <a href="/A120360/b120360.txt">Table of n, a(n) for n = 1..10000</a>

%e a(1) = 12 since r = 2, s = 4, t = r + s = 6.

%t oddtau[n_] := DivisorSigma[0, n/2^IntegerExponent[n, 2]]; seqQ[n_] := Module[{d = DivisorSigma[0, n], o = odd[n]}, EvenQ[d] && EvenQ[o] && Divisible[n, d] && Divisible[n, o] && Divisible[n, d - o]]; Select[Range[2, 2320, 2], seqQ] (* _Amiram Eldar_, Jan 15 2020 *)

%Y Cf. A033950, A049439, A057265, A120350.

%K nonn

%O 1,1

%A _Walter Kehowski_, Jun 25 2006