A093920 Row sums of A093919.

1, 4, 15, 40, 205, 276, 1939, 4432, 13689, 18100, 199111, 200784, 2610205, 3136420, 3191595, 7012576, 119213809, 137103012, 2604957247, 2605199080, 2608367181, 3084857644, 70951725835, 71062911792, 355315542025, 442803520276

Offset: 1

Author

Amarnath Murthy, Apr 25 2004

Keywords

• nonn

Crossrefs

Cf. A093919.

Programs

Mathematica

T[n_, k_] := LCM @@ Drop[ Reverse[ Range[n]], (k - n)]; Table[ Plus @@ Table[ T[n, k], {k, n}], {n, 26}] (* Robert G. Wilson v, Apr 27 2004 *)

Extensions

Edited by Robert G. Wilson v, Apr 27 2004