OFFSET
1,4
LINKS
FORMULA
a(n) = A078182(n) - ([n == 2 (mod 3)]*n).
G.f.: Sum_{k>=1} (3*k-1) * x^(6*k-2) / (1 - x^(3*k-1)). - Ilya Gutkovskiy, Apr 14 2021
Sum_{k=1..n} a(k) = c * n^2 + O(n*log(n)), where c = Pi^2/36 - 1/6 = 0.107489... . - Amiram Eldar, Nov 27 2023
MATHEMATICA
Table[DivisorSum[n, # &, And[Mod[#, 3] == 2, # != n] &], {n, 105}] (* Michael De Vlieger, Nov 08 2017 *)
PROG
(PARI) A293898(n) = sumdiv(n, d, (d<n)*(2==(d%3))*d);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Antti Karttunen, Nov 06 2017
STATUS
approved