|
%I #6 Jun 18 2017 17:00:16
%S 4,6,12,8,18,12,28,14,24,24,18,20,42,32,36,24,60,42,40,56,30,72,32,48,
%T 54,48,38,60,56,90,42,96,44,84,78,72,48,124,72,98,54,120,72,120,80,90,
%U 60,168,62,96,104,84,144,68,126,96,144
%N Even members of A000203.
%C a(n) = sigma(A028983(n)) = A000203(A028983(n)). [From _Jaroslav Krizek_, Oct 06 2009]
%t Select[DivisorSigma[1,Range[100]],EvenQ] (* _Harvey P. Dale_, Jun 18 2017 *)
%Y Cf. A000203, A152677, A152679.
%K easy,nonn
%O 1,1
%A _Omar E. Pol_, Dec 10 2008
|
