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

Author

Reinhard Zumkeller, Mar 26 2015

Keywords

• nonn

Links

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

Crossrefs

Cf. A256188, A255437.

Programs

Haskell

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

Mathematica

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