A171377 Zeros in a A171246 modulo two matrix:a(n)=(n+1)^2-Sum[Sum[Mod[A171246(m,k),2],{k,0,n}],{m,0,n}].
0, 1, 4, 7, 11, 16, 22, 35, 45, 60, 74, 91, 107, 124, 142, 161, 179, 204, 228, 255, 277, 306, 332, 363, 389, 418, 450, 493, 529, 562, 600, 635, 671, 712, 754, 799, 839, 890, 940
Offset: 0
Programs
-
Mathematica
Clear[t, n, k, a] t[n_, k_] = If[k <= n, 1 + Floor[n!*2^(-(k - n/2)^2)/2], 0] TableForm[Table[Table[Table[Mod[t[m, k], 2], {k, 0, n}], {m, 0, n}], { n, 0, 10}]] (*A006046 like*) Table[Sum[Sum[Mod[t[m, k], 2], {k, 0, m}], {m, 0, n}], {n, 0, 30}] a = Table[(n + 1)^2 - Sum[Sum[Mod[t[m, k], 2], { k, 0, m}], {m, 0, n}], {n, 0, 40}]
Comments