|
2, 7, 14, 17, 24, 27, 34, 37, 51, 47, 54, 57, 64, 67, 86, 84, 84, 87, 94, 97, 121, 107, 121, 117, 124, 127, 168, 137, 144, 154, 154, 157, 191, 167, 174, 177, 191, 204, 238, 197, 204, 207, 214, 224, 261, 227, 234, 237, 266, 247, 315, 257, 264, 267, 291, 277, 331, 294, 294, 324, 304, 307, 378, 317, 331, 327
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{k>0} (5*k-3) * x^k / (1 - x^(5*k-3)).
|
|
MATHEMATICA
|
a[n_] := DivisorSum[5*n - 3, # &, Mod[#, 5] == 2 &]; Array[a, 100] (* Amiram Eldar, Jul 06 2023 *)
|
|
PROG
|
(PARI) a(n) = sumdiv(5*n-3, d, (d%5==2)*d);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|