OFFSET
1,2
COMMENTS
FORMULA
(Sum_{j=1..k} sigma_3(j)) mod k = A064603(k) mod k = 0.
EXAMPLE
Adding divisor-cube sums for j = 1..7 gives 1+9+28+73+126+252+344 = 833 = 7*119, which is divisible by 7, so 7 is a term and the integer quotient is 119.
MATHEMATICA
A064603 = Accumulate[Table[DivisorSigma[3, k], {k, 1, 1000000}]]; Select[Range[Length[A064603]], Divisible[A064603[[#]], #] &] (* Vaclav Kotesovec, Jul 11 2021 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Labos Elemer, Sep 24 2001
EXTENSIONS
a(15)-a(21) from Donovan Johnson, Jun 21 2010
a(22)-a(25) from Amiram Eldar, Jan 18 2024
STATUS
approved