A357015 Nonsquarefree numbers whose sum of exponential divisors (A051377) is odd.
81, 405, 567, 625, 891, 1053, 1377, 1539, 1863, 1875, 2349, 2401, 2511, 2835, 2997, 3321, 3483, 3807, 4293, 4375, 4455, 4779, 4941, 5265, 5427, 5751, 5913, 6237, 6399, 6723, 6875, 6885, 7203, 7209, 7371, 7695, 7857, 8125, 8181, 8343, 8667, 8829, 9153, 9315, 9639
Offset: 1
Keywords
Examples
81 = 3^4 is a term since it is not squarefree and A051377(81) = 93 is odd.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
f[p_, e_] := DivisorSum[e, p^# &]; esigma[1] = 1; esigma[n_] := Times @@ f @@@ FactorInteger[n]; Select[Range[10^4], ! SquareFreeQ[#] && OddQ[esigma[#]] &]
Comments