A376169 Row sums of A376168.

4, 26, 44, 102, 92, 290, 156, 366, 332, 614, 332, 1166, 444, 1050, 1076, 1310, 716, 2234, 876, 2522, 1860, 2258, 1244, 4310, 1812, 3030, 2564, 4374, 1916, 7262, 2172, 4798, 4052, 4910, 4164, 9302, 3036, 6018, 5460, 9554, 3692, 12642, 4044, 9566, 8852, 8570, 4796

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..1000

Formula

a(n) = Sum_{k = 1..2*A048691(n)} A376168(n,k).

a(n) = 2*Sum_{k = 1..A048691(n)} A376168(n,k).

Mathematica

A376168row[n_] := Module[{a, b}, SolveValues[1/a + 1/b == 1/n && a > 0 && b > 0, {a, b}, Integers]];
Array[Total[A376168row[#], 2] &, 50]

Crossrefs

Cf. A048691, A376168.

Sequence in context: A059178 A056193 A196672 * A306611 A102203 A219668

Adjacent sequences: A376166 A376167 A376168 * A376170 A376171 A376172

Keyword

nonn

Author

Paolo Xausa, Sep 13 2024

Status

approved