A255879 Partial sums of A256188.

1, 3, 4, 6, 10, 15, 16, 18, 21, 28, 36, 45, 46, 48, 51, 55, 66, 78, 91, 105, 106, 108, 111, 115, 120, 136, 153, 171, 190, 210, 211, 213, 216, 220, 225, 231, 253, 276, 300, 325, 351, 378, 379, 381, 384, 388, 393, 399, 406, 435, 465, 496, 528, 561, 595, 630

Offset

1,2

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Accumulate[Table[If[OddQ[Sqrt[8n+1]], Range[(Sqrt[8n+1]-1)/2], n], {n, 50}]// Flatten] (* Harvey P. Dale, Jun 01 2020 *)

Prog

(Haskell)
a255879 n = a255879_list !! (n-1)
a255879_list = scanl1 (+) a256188_list

Crossrefs

Cf. A256188, A255437.

Sequence in context: A302340 A310003 A085378 * A171096 A125869 A059618

Adjacent sequences: A255876 A255877 A255878 * A255880 A255881 A255882

Keyword

nonn

Author

Reinhard Zumkeller, Mar 26 2015

Status

approved