A059028 Row sums of A059026: a(n) = Sum_{m=1..n} (lcm(n,m)/n + lcm(n,m)/m - 1).

1, 3, 8, 13, 27, 26, 58, 57, 83, 85, 156, 104, 223, 180, 206, 241, 393, 257, 496, 327, 431, 478, 738, 428, 757, 681, 794, 682, 1191, 632, 1366, 993, 1133, 1195, 1320, 971, 1963, 1506, 1610, 1315, 2421, 1313, 2668, 1788, 1877, 2236, 3198, 1748, 3103

Offset: 1

Author

Asher Auel, Dec 15 2000

Keywords

• nonn
• easy

Crossrefs

Cf. A059026.

Programs

Mathematica

Table[Sum[LCM[n,m]/n+LCM[n,m]/m-1,{m,n}],{n,50}] (* Harvey P. Dale, Dec 11 2016 *)