A343982 Numbers k that divide Sum_{j|k} j^(k/j).

1, 6, 54, 135, 486, 495, 516, 1134, 1863, 2295, 3375, 4374, 4875, 5535, 10935, 11875, 15435, 19695, 22295, 23625, 24057, 34853, 39015, 39366, 42875, 43875, 59265, 64881, 77625, 84375, 89667, 100875, 102375, 114582, 122625, 142155, 144495, 161325, 165375, 205979, 251505, 268569

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

Cf. A007691, A055225, A067313, A336892.

Sequence in context: A097645 A153333 A284858 * A275039 A195901 A260955

Adjacent sequences: A343979 A343980 A343981 * A343983 A343984 A343985

Keyword

nonn

Author

Seiichi Manyama, May 06 2021

Status

approved