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

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, 22, 27, 25, 30, 24, 39, 28, 40, 25, 41, 31, 39, 34, 34, 42, 40, 38, 51, 36, 51, 44, 53, 46, 58, 44, 53, 47, 60, 46, 56, 55, 61, 50, 60, 53, 66, 49, 65, 75, 68, 66, 68, 72

Offset

0,3

Comments

a(n) + A070952(n) = 2*n + 1. - Reinhard Zumkeller, Jun 07 2013

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Mathematica

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 *)

Prog

(Haskell)
a070951 = length . filter (== 0) . a070950_row
-- Reinhard Zumkeller, Jun 06 2013

Crossrefs

Cf. A070950, A070952.

Sequence in context: A316891 A152992 A185727 * A076937 A014682 A167160

Adjacent sequences: A070948 A070949 A070950 * A070952 A070953 A070954

Keyword

nonn,easy,nice

Author

N. J. A. Sloane, May 19 2002

Extensions

More terms from Hans Havermann, May 26 2002

Status

approved