%I #12 Nov 02 2019 06:55:23
%S 2,4,6,10,12,14,16,18,20,22,24,26,28,34,36,38,44,46,48,52,58,62,68,72,
%T 74,76,80,82,86,90,92,94,106,112,116,118,120,122,124,126,134,142,144,
%U 146,148,150,158,160,164,166,168,172,176,178,180,188,192,194,198,202,206
%N Even numbers k such that the number of odd divisors r and the number of even divisors s are both divisors of k.
%C Since s=0 if k is odd, the number k is necessarily even and then s is always a multiple of r. Note that t=r+s may not be a divisor even if both r and s are divisors. For example, if k=144, then r=3, s=12, but t=r+s=15.
%H Amiram Eldar, <a href="/A120351/b120351.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = n is even, r = number of odd divisors of n, s = number of even divisors of n, are all divisors of n.
%e 16 is a term since r=1 and s=4 are both divisors.
%p with(numtheory); A:=[]: N:=10^4/2: for w to 1 do for k from 2 to N do n:=2*k; S:=divisors(n); r:=nops( select(z->type(z,odd),S) ); s:=nops( select(z->type(z,even),S) ); if andmap(z -> n mod z = 0,[r,s]) then A:=[op(A),n]; print(n,r,s); fi; od od; A;
%t aQ[n_] := Divisible[n, (ev = DivisorSigma[0, n/2])] && Divisible[n, DivisorSigma[0, n] - ev]; Select[Range[2, 206, 2], aQ] (* _Amiram Eldar_, Nov 02 2019 *)
%Y Cf. A033950, A049439, A057265.
%K nonn
%O 1,1
%A _Walter Kehowski_, Jun 24 2006
%E Term 2 inserted by _Amiram Eldar_, Nov 02 2019