A064406 Partial sums of A064405.
-1, -3, -4, -8, -7, -9, -10, -18, -13, -11, -8, -12, -7, -9, -10, -26, -13, -3, 8, 12, 25, 31, 38, 30, 47, 57, 68, 64, 77, 75, 74, 42, 71, 97, 124, 144, 173, 195, 218, 226, 259, 285, 312, 324, 353, 367, 382, 366, 407, 441, 476, 496, 533, 555, 578, 570, 611, 637, 664, 660, 689, 687, 686, 622, 683, 741, 800, 852, 913, 967
Offset: 0
References
- Tony Colledge, "Pascal's Triangle, A teacher's guide with blackline masters," Tarquin Publications, Norfolk, England, Second Edition, 1997, page 9.
Crossrefs
Partial sums of A064405.
Programs
-
Mathematica
a[ n_ ] := n + 1 - 2*Sum[ Mod[ Binomial[ n, k ], 2 ], {k, 0, n} ]; Table[ Sum[ a[ k ], {k, 0, n} ], {n, 0, 100} ]
Extensions
New name from Sean A. Irvine, Jul 05 2023
Comments