OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..200
EXAMPLE
1^6 + 2^3 + 3^2 + 6^1 = 24 = 4 * 6. So 6 is a term.
MATHEMATICA
q[n_] := Divisible[DivisorSum[n, #^(n/#) &], n]; Select[Range[10^5], q] (* Amiram Eldar, May 06 2021 *)
PROG
(PARI) isok(n) = sumdiv(n, d, Mod(d, n)^(n/d))==0;
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, May 06 2021
STATUS
approved