A379922 Numbers m that divide the alternating sum Sum_{k=1..m} (-1)^(k+1) * sigma_2(k).
1, 2, 3, 42, 329, 633, 1039, 5689, 26621, 39245, 1101875, 1216075, 40088584, 67244920, 104332211, 549673265, 777631064, 19879301756
Offset: 1
Links
- Amiram Eldar, Table of n, a(n), A379921(a(n))/a(n) for n = 1..18.
Crossrefs
Programs
-
Mathematica
With[{m = 40000}, Position[Accumulate[Table[(-1)^n * DivisorSigma[2, n], {n, 1, m}]]/Range[m], _?IntegerQ] // Flatten]
-
PARI
list(lim) = my(s = 0); for(k = 1, lim, s += (-1)^k * sigma(k, 2); if(!(s % k), print1(k, ", ")));
Comments