|
%I #8 Jul 28 2023 04:05:42
%S 0,0,1,1,3,5,5,3,7,13,13,11,13,15,13,7,15,29,29,27,29,31,29,23,29,39,
%T 37,31,33,35,29,15,31,61,61,59,61,63,61,55,61,71,69,63,65,67,61,47,61,
%U 87,85,79,81,83,77,63,73,91,85,71,73,75,61,31,63,125,125
%N Number of zeros in row n of triangle A249133.
%C a(n) = (number of even terms in row n of triangle A249095) = A023416(A249184(n)) = A055641(A249183(n)).
%H Reinhard Zumkeller, <a href="/A249304/b249304.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A048967(n) + A048967(n-1) for n > 0.
%t Join[{0}, Plus @@@ Partition[Table[n + 1 - 2^DigitCount[n, 2, 1], {n, 0, 100}], 2, 1]] (* _Amiram Eldar_, Jul 28 2023 *)
%o (Haskell)
%o a249304 n = if n == 0 then 0 else a048967 n + a048967 (n - 1)
%Y Cf. A249133, A048967, A249095, A023416, A055641, A249183, A249184.
%K nonn
%O 0,5
%A _Reinhard Zumkeller_, Nov 14 2014
|
