A163260 Row sums of A163259.

0, 0, 1, 1, 7, 6, 30, 43, 111, 184, 553, 694, 2098, 3576, 8186, 13689, 35791, 54928, 141366, 239002, 548162, 956743, 2328296, 3754337, 9133084, 15963906, 36115030, 63177196, 148953028, 251144293, 590484909, 1038294564, 2335617735, 4138282064, 9539100013, 16441453580, 37863251785

Offset: 1

Author

Mats Granvik, Jul 23 2009

Keywords

• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..3323 (terms 1..1000 from G. C. Greubel)

Crossrefs

Cf. A163259.

Programs

Mathematica

T[n_, k_] := Mod[Binomial[n, k + 1], Binomial[n, k]]; Join[{0}, Table[Sum[T[n, k], {k, 1, n - 1}], {n, 1, 20}]] (* G. C. Greubel, Dec 12 2016 *)

Formula

a(n) = Sum_{k=1,..,n} ( Sum_{i=1,..,k-1} mod(binomial(n, k + 1), binomial(n, k)) ). - G. C. Greubel, Dec 12 2016

Extensions

Corrected a(20). Mats Granvik, Jul 24 2009

Terms a(21) onward added by G. C. Greubel, Dec 12 2016