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,3

Comments

The sequence is the relationship of holes to fractal by area of Gaussian scale 2 modulo two matrices.

The area ratio: a(n)/(n+1)^2 varies fractally while approaching a maximum near 0.6375 and then, declining.

Links

Table of n, a(n) for n=0..38.

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}]

Crossrefs

A006046, A001316, A006046

Sequence in context: A310757 A231603 A134869 * A020683 A310758 A310759

Adjacent sequences: A171374 A171375 A171376 * A171378 A171379 A171380

Keyword

nonn,uned

Author

Roger L. Bagula, Dec 07 2009

Status

approved