login
Partial sums of A256188.
3

%I #6 Jun 01 2020 11:49:34

%S 1,3,4,6,10,15,16,18,21,28,36,45,46,48,51,55,66,78,91,105,106,108,111,

%T 115,120,136,153,171,190,210,211,213,216,220,225,231,253,276,300,325,

%U 351,378,379,381,384,388,393,399,406,435,465,496,528,561,595,630

%N Partial sums of A256188.

%H Reinhard Zumkeller, <a href="/A255879/b255879.txt">Table of n, a(n) for n = 1..10000</a>

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

%o (Haskell)

%o a255879 n = a255879_list !! (n-1)

%o a255879_list = scanl1 (+) a256188_list

%Y Cf. A256188, A255437.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Mar 26 2015