|
%I #18 May 23 2016 22:28:09
%S 1,2,3,4,6,8,9,10,12,14,15,16,18,20,24,28,30,32,36,40,42,48,54,56,60,
%T 72,80,84,90,96,108,120,126,132,140,144,168,180,192,210,216,240,252,
%U 288,300,336,360,420,480,504,540,720,840,1260
%N Numbers n such that n <= d(n)^2, where d() = number of divisors (A000005).
%t Select[Range[1300],#<=DivisorSigma[0,#]^2&] (* _Harvey P. Dale_, Mar 16 2012 *)
%o (PARI) is(n)=numdiv(n)^2>=n \\ _Charles R Greathouse IV_, Aug 03 2012
%Y Cf. A000005, A035034, A035035, A033950, A036763, A034884, A273323.
%K nonn,fini,full
%O 1,2
%A _Erich Friedman_, _Labos Elemer_
|
