login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 1 00:27 EDT 2020. Contains 334756 sequences. (Running on oeis4.)