|
%I #7 Oct 15 2013 22:30:20
%S 2,8,12,18,24,36,40,56,60,72,80,84,96,108,132,180,240,252,288,360,480,
%T 504,720,1260
%N Numbers common to A033950 and A034884.
%t Select[Range[1265], Mod[#, x = DivisorSigma[0, #]] == 0 && # < x^2 &] (* _Jayanta Basu_, Jun 27 2013 *)
%Y Cf. A035033, A036763, A046526.
%K nonn,fini,full
%O 1,1
%A _Labos Elemer_
|
