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,2

Links

Table of n, a(n) for n=1..49.

Mathematica

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

Crossrefs

Cf. A059026.

Sequence in context: A076792 A146939 A181540 * A066809 A009848 A337504

Adjacent sequences: A059025 A059026 A059027 * A059029 A059030 A059031

Keyword

nonn,easy,changed

Author

Asher Auel, Dec 15 2000

Status

approved