A268234 - OEIS

%I #14 Apr 07 2020 08:47:34

%S 1,2,3,4,4,5,6,7,8,9,10,10,10,10,11,12,13,13,13,14,15,16,16,17,17,18,

%T 18,19,20,21,22,23,24,25,26,27,28,28,28,28,28,28,28,28,29,30,31,31,31,

%U 31,31,31,31,32,33,34,34,35,35,35,35,35,35,36,36,37,38,39,40,41,41,41,41,41,42,43,44,45,46

%N Partial sums of A047999.

%H R. J. Mathar, <a href="/A268234/b268234.txt">Table of n, a(n) for n = 0..2000</a>

%p A268234 := proc(n)

%p     local r,c,a,k ;

%p     a := 0;

%p     r :=0;

%p     c :=0;

%p     for k from 0 to n do

%p         a := a+A047999(r,c) ;

%p         c := c+1 ;

%p         if c > r then

%p             c :=0 ;

%p             r := r+1;

%p         end if;

%p     end do:

%p     a;

%p end proc: # _R. J. Mathar_, May 06 2016

%t rows = 14;

%t ca = CellularAutomaton[60, {{1}, 0}, rows - 1];

%t Table[ca[[k, 1 ;; k]], {k, 1, rows}] // Flatten // Accumulate (* _Jean-François Alcover_, Apr 07 2020 *)

%Y Cf. A047999. A268233 is a more informative version of the same data.

%K nonn

%O 0,2

%A _N. J. A. Sloane_, Feb 03 2016