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

Author

N. J. A. Sloane, May 19 2002

Keywords

• nonn
• easy
• nice

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

Crossrefs

Cf. A070950, A070952.

Programs

Haskell

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

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

Extensions

More terms from Hans Havermann, May 26 2002