login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A268234
Partial sums of A047999.
1
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
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 03 2016
STATUS
approved