%I #12 Nov 03 2013 17:11:53
%S 1,21952,64000
%N Integers whose cube root equals their number of divisors.
%D David Wells, The Penguin Dictionary of Curious and Interesting Numbers (Rev. ed. 1997), p. 165.
%t Select[Table[i^3, {i, 500}], DivisorSigma[0, # ] == #^(1/3) &]
%Y Cf. A143026.
%K nonn,fini,full,bref
%O 1,2
%A _Harvey P. Dale_, Jan 11 2002
|