OFFSET
1,2
COMMENTS
EXAMPLE
64 is a term because 4^3 = 64; 4 divides 64; tau(4) = 3.
MATHEMATICA
divPowerQ[n_] := AnyTrue[Divisors[n], #^DivisorSigma[0, #] == n &]; Select[Range[27000], divPowerQ] (* Amiram Eldar, Feb 18 2020 *)
PROG
(Magma) [n: n in [1..100000] | #[d: d in Divisors(n) | d^NumberOfDivisors(d) eq n] ge 1]
(PARI) isok(m) = fordiv(m, d, if (d^numdiv(d) == m, return (1))); \\ Michel Marcus, Feb 18 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Feb 18 2020
STATUS
approved