|
| |
|
|
A331133
|
|
a(n) = Sum_{i=1..n} d(i)^2*d(i+1)/2, where d(n) = A000005(n).
|
|
2
|
|
|
|
1, 5, 11, 20, 28, 44, 52, 76, 94, 110, 122, 158, 166, 198, 238, 263, 275, 311, 323, 395, 427, 443, 459, 555, 573, 605, 653, 689, 705, 769, 781, 853, 885, 917, 989, 1070, 1078, 1110, 1174, 1238, 1254, 1318, 1330, 1438, 1510, 1526, 1546, 1696, 1723, 1795, 1843, 1879, 1895, 2023, 2087, 2215, 2247, 2263, 2287, 2431
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
Yoichi Motohashi, An asymptotic formula in the theory of numbers, Acta Arith. 16 (1969/70), 255-264. MR0266884 (42 #1786).
|
|
|
MATHEMATICA
|
Accumulate[a[n_]:=DivisorSum[n+1, DivisorSigma[0, n]^2 &]/2; Array[a, 60]] (* Vincenzo Librandi, Jan 12 2020 *)
|
|
|
PROG
|
(MAGMA) [&+[#Divisors(i)^2*#Divisors(i+1)/2:i in [1..n]]:n in [1..60]]; // Marius A. Burtea, Jan 12 2020
|
|
|
CROSSREFS
|
Cf. A000005, A331132.
Sequence in context: A029456 A304502 A190743 * A110208 A034308 A032527
Adjacent sequences: A331130 A331131 A331132 * A331134 A331135 A331136
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
N. J. A. Sloane, Jan 11 2020
|
|
|
STATUS
|
approved
|
| |
|
|
