A268234 Partial sums of A047999.

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, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 28, 28, 28, 28, 28, 28, 28, 29, 30, 31, 31, 31, 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

Offset

0,2

Links

R. J. Mathar, Table of n, a(n) for n = 0..2000

Maple

A268234 := proc(n)
    local r, c, a, k ;
    a := 0;
    r :=0;
    c :=0;
    for k from 0 to n do
        a := a+A047999(r, c) ;
        c := c+1 ;
        if c > r then
            c :=0 ;
            r := r+1;
        end if;
    end do:
    a;
end proc: # R. J. Mathar, May 06 2016

Mathematica

rows = 14;
ca = CellularAutomaton[60, {{1}, 0}, rows - 1];
Table[ca[[k, 1 ;; k]], {k, 1, rows}] // Flatten // Accumulate (* Jean-François Alcover, Apr 07 2020 *)

Crossrefs

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

Sequence in context: A172266 A362949 A056847 * A253188 A320847 A105598

Adjacent sequences: A268231 A268232 A268233 * A268235 A268236 A268237

Keyword

nonn

Author

N. J. A. Sloane, Feb 03 2016

Status

approved