OFFSET
1,2
COMMENTS
Numbers k such that the mean value of A007425 over the range 1..k is an integer.
The corresponding quotients are 1, 2, 4, 9, 32, 43, 47, 67, 80, 94, 99, 125, 141, 145, 172, 180, 183, 200, 210, 239, 239, 259, 270, 270, 270, 326, ... .
a(27) > 7.5*10^10, if it exists.
EXAMPLE
7 is a term since A061201(7) = 28 = 4 * 7 is divisible by 7.
MATHEMATICA
f[p_, e_] := (e+1)*(e+2)/2; d3[1] = 1; d3[n_] := Times @@ f @@@ FactorInteger[n]; sum = 0; seq = {}; Do[sum += d3[n]; If[Divisible[sum, n], AppendTo[seq, n]], {n, 1, 10^6}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jul 06 2022
STATUS
approved