OFFSET
1,2
COMMENTS
Wells erroneously writes that the smallest number on this list should be 24.
All the primes are in this list since they have the only proper divisor 1 which is trivially a cube.
REFERENCES
David Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, Revised edition 1987. See p. 101.
LINKS
Stefano Spezia, Table of n, a(n) for n = 1..10000
EXAMPLE
16 is a term since 1*2*4*8 = 64 = 4^3.
MATHEMATICA
Select[Range[150], IntegerQ[Product[Part[Divisors[#], i], {i, DivisorSigma[0, #]-1}]^(1/3)] &]
PROG
(PARI) isok(k) = my(d=divisors(k)); ispower(vecprod(Vec(d, #d-1)), 3); \\ Michel Marcus, Sep 04 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Stefano Spezia, Sep 04 2024
STATUS
approved