A084555 Partial sums of A084556.
0, 1, 3, 5, 8, 11, 14, 17, 20, 23, 27, 31, 35, 39, 43, 47, 51, 55, 59, 63, 67, 71, 75, 79, 83, 87, 91, 95, 99, 103, 107, 111, 115, 119, 124, 129, 134, 139, 144, 149, 154, 159, 164, 169, 174, 179, 184, 189, 194, 199, 204, 209, 214, 219, 224, 229, 234, 239, 244, 249
Offset: 0
Keywords
Links
Crossrefs
Programs
-
Mathematica
Accumulate@ Flatten[ Table[#, {#!}] & /@ Range[0, 5]]
Formula
a(0)=0; for n >= 1, a(n) = a(n-1) + A084556(n). Also a(n) = A130664(n+1) - 1. - Antti Karttunen, Dec 18 2012
Extensions
Moved the misplaced Mathematica code from A084505. - Antti Karttunen, Oct 24 2012
Comments