|
%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
|
