A070951 - OEIS

%I #15 May 04 2023 12:33:40

%S 0,0,2,1,5,2,8,3,10,7,10,9,13,8,16,9,18,16,17,15,20,20,22,19,23,24,27,

%T 22,27,25,30,24,39,28,40,25,41,31,39,34,34,42,40,38,51,36,51,44,53,46,

%U 58,44,53,47,60,46,56,55,61,50,60,53,66,49,65,75,68,66,68,72

%N Number of 0's in n-th row of triangle in A070950.

%C a(n) + A070952(n) = 2*n + 1. - _Reinhard Zumkeller_, Jun 07 2013

%H Reinhard Zumkeller, <a href="/A070951/b070951.txt">Table of n, a(n) for n = 0..10000</a>

%t steps = 100; Count[#, 0]& /@ MapIndexed[ Take[#1, {steps - First[#2] + 2, steps + First[#2]}]&, CellularAutomaton[30, {{1}, 0}, steps]] (* _Jean-François Alcover_, Oct 07 2013 *)

%o (Haskell)

%o a070951 = length . filter (== 0) . a070950_row

%o -- _Reinhard Zumkeller_, Jun 06 2013

%Y Cf. A070950, A070952.

%K nonn,easy,nice

%O 0,3

%A _N. J. A. Sloane_, May 19 2002

%E More terms from _Hans Havermann_, May 26 2002