%I #15 Jul 17 2023 00:59:44

%S 1,1,7,1,12,1,17,1,28,1,27,1,32,1,43,12,42,1,47,1,58,1,73,1,62,1,84,1,

%T 72,22,77,1,88,1,87,1,118,12,119,1,102,1,107,32,118,1,117,1,133,1,190,

%U 1,132,1,153,1,148,42,147,12,152,1,189,1,208,1,167,1,178,1,204,73,182,1,224,1,192,1

%N Sum of divisors of 5*n-3 of form 5*k+1.

%F a(n) = A284097(5*n-3).

%F G.f.: Sum_{k>0} (5*k-4) * x^(2*k-1) / (1 - x^(5*k-4)).

%t a[n_] := DivisorSum[5*n - 3, # &, Mod[#, 5] == 1 &]; Array[a, 100] (* _Amiram Eldar_, Jul 17 2023 *)

%o (PARI) a(n) = sumdiv(5*n-3, d, (d%5==1)*d);

%Y Cf. A364092, A364093, A364095.

%Y Cf. A284097, A359237, A364098.

%K nonn

%O 1,3

%A _Seiichi Manyama_, Jul 04 2023