A066693 Integers whose cube root equals their number of divisors.
1, 21952, 64000
Offset: 1
References
- David Wells, The Penguin Dictionary of Curious and Interesting Numbers (Rev. ed. 1997), p. 165.
Crossrefs
Cf. A143026.
Programs
-
Mathematica
Select[Table[i^3, {i, 500}], DivisorSigma[0, # ] == #^(1/3) &]