A266530 Partial sums of A266529.
0, 0, 1, 2, 3, 4, 7, 10, 11, 12, 15, 18, 23, 28, 35, 42, 43, 44, 47, 50, 55, 60, 67, 74, 79, 84, 95, 106, 123, 140, 155, 170, 171, 172, 175, 178, 183, 188, 195, 202, 207, 212, 223, 234, 251, 268, 283, 298, 303, 308, 319, 330, 347, 364, 383, 402, 423, 444, 483, 522, 571, 620, 651, 682, 683, 684, 687, 690, 695, 700
Offset: 1
Keywords
Links
Programs
-
Mathematica
Accumulate[Riffle[#, #] &@ Nest[Join[#, 2 # + Append[Rest@#, 1]] &, {0}, 6]] (* Ivan Neretin, Feb 09 2017 *)
Comments