%I #19 Nov 26 2023 06:34:49
%S 0,0,3,0,0,3,0,0,3,10,0,3,0,0,3,0,17,3,0,10,3,0,0,27,0,0,3,0,0,13,31,
%T 0,3,17,0,3,0,38,3,10,0,3,0,0,48,0,0,27,0,10,20,52,0,3,0,0,3,0,59,13,
%U 0,31,3,0,0,69,0,17,3,10,0,27,73,0,3,38,0,3,0,90,3
%N a(n) = Sum_{d|n, d == 3 (mod 7)} d.
%H Seiichi Manyama, <a href="/A284444/b284444.txt">Table of n, a(n) for n = 1..10000</a>
%F G.f.: Sum_{k>=0} (7*k + 3)*x^(7*k+3)/(1 - x^(7*k+3)). - _Ilya Gutkovskiy_, Mar 28 2017
%F Sum_{k=1..n} a(k) = c * n^2 + O(n*log(n)), where c = Pi^2/84 = 0.117495... . - _Amiram Eldar_, Nov 26 2023
%t Table[Sum[If[Mod[d, 7] == 3, d, 0], {d, Divisors[n]}], {n, 80}] (* _Indranil Ghosh_, Mar 27 2017 *)
%o (PARI) a(n) = sumdiv(n, d, d*((d % 7) == 3)); \\ _Amiram Eldar_, Nov 26 2023
%Y Cf. A109705.
%Y Cf. Sum_{d|n, d == k (mod 7)} d: A284099 (k=1), A284443 (k=2), this sequence (k=3), A284445 (k=4), A284446 (k=5), A284105 (k=6).
%K nonn,easy
%O 1,3
%A _Seiichi Manyama_, Mar 27 2017