|
%I #20 Aug 07 2019 05:32:27
%S 1,9,128,625,972,1152,2000,2025,5625,6561,7776,8100,10000,10800,18000,
%T 21952,26244,30000,32768,35721,50625,55296,56700,64000,64800,65856,
%U 70000,80000,84672,89100,90000,97200,98304,99225,105300,109760,110000
%N Numbers k such that the square of d(k) (number of divisors) divides k.
%C Subset of A033950.
%H Amiram Eldar, <a href="/A046754/b046754.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Donovan Johnson)
%e If k = 972, d(k) = sigma(0,k) = 18. Its square is 324 which divides 972.
%t Select[Range[110000], IntegerQ[#/DivisorSigma[0, #]^2] &] (* _Jayanta Basu_, Jun 28 2013 *)
%Y Cf. A033950, A046755, A046756.
%K nonn
%O 1,2
%A _Labos Elemer_
|
