A253066 -id:A253066 - cp's OEIS frontend

A253068 The subsequence A253066(2^n-1).

1, 6, 28, 112, 456, 1816, 7288, 29112, 116536, 465976, 1864248, 7456312, 29826616, 119303736, 477220408, 1908870712, 7635504696, 30541975096, 122167987768, 488671776312, 1954687454776, 7818749120056, 31274997878328, 125099988717112, 500399960460856, 2001599830658616, 8006399345004088, 32025597335277112, 128102389430586936

Offset: 0

N. J. A. Sloane and Doron Zeilberger, Feb 23 2015

A253066 is the Run Length Transform of this sequence.

Colin Barker, Table of n, a(n) for n = 0..1000
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, A Meta-Algorithm for Creating Fast Algorithms for Counting ON Cells in Odd-Rule Cellular Automata, arXiv:1503.01796 [math.CO], 2015; see also the Accompanying Maple Package.
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, Odd-Rule Cellular Automata on the Square Grid, arXiv:1503.04249 [math.CO], 2015.
N. J. A. Sloane, On the No. of ON Cells in Cellular Automata, Video of talk in Doron Zeilberger's Experimental Math Seminar at Rutgers University, Feb. 05 2015: Part 1, Part 2
N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168 [math.CO], 2015.
Index entries for sequences related to cellular automata
Index entries for linear recurrences with constant coefficients, signature (3,6,-8).

Cf. A253066.

OddCA2:=proc(f,M) local n,a,i,f2,g,p;
f2:=simplify(expand(f)) mod 2;
p:=1; g:=f2;
for n from 1 to M do p:=expand(p*g) mod 2; print(n,nops(p)); g:=expand(g^2) mod 2; od:
return;
end;
f25:=1/x+1+x+1/y+y/x+x*y;
OddCA2(f25,8);

LinearRecurrence[{3, 6, -8}, {1, 6, 28}, 29] (* Jean-François Alcover, Nov 23 2017 *)

a(n) = ((-2)^n+4^(2+n)-8)/9 \\ Colin Barker, Jul 16 2015

Vec((4*x^2+3*x+1)/((x-1)*(2*x+1)*(4*x-1)) + O(x^30)) \\ Colin Barker, Jul 16 2015

G.f.: (1+3x+4x^2)/((1-x)(1+2x)(1-4x)).

a(n) = ((-2)^n+4^(2+n)-8)/9. - Colin Barker, Jul 16 2015

A253065 Number of odd terms in f^n, where f = 1+x+x^2+x^2*y+x^2/y.

Original entry on oeis.org

1, 5, 5, 17, 5, 25, 17, 65, 5, 25, 25, 85, 17, 85, 65, 229, 5, 25, 25, 85, 25, 125, 85, 325, 17, 85, 85, 289, 65, 325, 229, 813, 5, 25, 25, 85, 25, 125, 85, 325, 25, 125, 125, 425, 85, 425, 325, 1145, 17, 85, 85, 289, 85, 425, 289, 1105, 65, 325, 325, 1105, 229, 1145, 813, 2945, 5, 25, 25, 85

Offset: 0

N. J. A. Sloane, Jan 26 2015

nonn

This is the number of ON cells in a certain 2-D CA in which the neighborhood of a cell is defined by f, and in which a cell is ON iff there was an odd number of ON cells in the neighborhood at the previous generation.

This is the odd-rule cellular automaton defined by OddRule 171 (see Ekhad-Sloane-Zeilberger "Odd-Rule Cellular Automata on the Square Grid" link).

			Here is the neighborhood f:
[0, 0, X]
[X, X, X]
[0, 0, X]
which contains a(1) = 5 ON cells.

Alois P. Heinz, Table of n, a(n) for n = 0..8191
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, A Meta-Algorithm for Creating Fast Algorithms for Counting ON Cells in Odd-Rule Cellular Automata, arXiv:1503.01796 [math.CO], 2015; see also the Accompanying Maple Package.
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, Odd-Rule Cellular Automata on the Square Grid, arXiv:1503.04249 [math.CO], 2015.
N. J. A. Sloane, On the No. of ON Cells in Cellular Automata, Video of talk in Doron Zeilberger's Experimental Math Seminar at Rutgers University, Feb. 05 2015: Part 1, Part 2
N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168 [math.CO], 2015.
Index entries for sequences related to cellular automata

Other CA's that use the same rule but with different cell neighborhoods: A160239, A102376, A071053, A072272, A001316, A246034, A246035, A253064, A253066.

Cf. A253067.

C:=f->subs({x=1, y=1}, f);
# Find number of ON cells in CA for generations 0 thru M defined by rule
# that cell is ON iff number of ON cells in nbd at time n-1 was odd
# where nbd is defined by a polynomial or Laurent series f(x, y).
OddCA:=proc(f, M) global C; local n, a, i, f2, p;
f2:=simplify(expand(f)) mod 2;
a:=[]; p:=1;
for n from 0 to M do a:=[op(a), C(p)]; p:=expand(p*f2) mod 2; od:
lprint([seq(a[i], i=1..nops(a))]);
end;
f:=1+x+x^2+x^2*y+x^2/y;
OddCA(f, 130);

(* f = A253067 *) f[0]=1; f[1]=5; f[2]=17; f[3]=65; f[4]=229; f[5]=813; f[n_] := f[n] = 8 f[n-5] + 6 f[n-4] + 13 f[n-3] + 5 f[n-2] + f[n-1]; Table[Times @@ (f[Length[#]]&) /@ Select[s = Split[IntegerDigits[n, 2]], #[[1]] == 1&], {n, 0, 67}] (* Jean-François Alcover, Jul 12 2017 *)

This is the Run Length Transform of A253067.

A253069 Number of odd terms in f^n, where f = 1/x+1+x+x/y+y/x+x*y.

Original entry on oeis.org

1, 6, 6, 22, 6, 36, 22, 82, 6, 36, 36, 132, 22, 132, 82, 302, 6, 36, 36, 132, 36, 216, 132, 492, 22, 132, 132, 484, 82, 492, 302, 1106, 6, 36, 36, 132, 36, 216, 132, 492, 36, 216, 216, 792, 132, 792, 492, 1812, 22, 132, 132, 484, 132, 792, 484, 1804, 82, 492, 492, 1804, 302, 1812, 1106, 4066

Offset: 0

N. J. A. Sloane, Jan 29 2015

nonn

This is the odd-rule cellular automaton defined by OddRule 175 (see Ekhad-Sloane-Zeilberger "Odd-Rule Cellular Automata on the Square Grid" link).

			Here is the neighborhood f:
[X, 0, X]
[X, X, X]
[0, 0, X]
which contains a(1) = 6 ON cells.

Alois P. Heinz, Table of n, a(n) for n = 0..8191
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, A Meta-Algorithm for Creating Fast Algorithms for Counting ON Cells in Odd-Rule Cellular Automata, arXiv:1503.01796, 2015; see also the Accompanying Maple Package.
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, Odd-Rule Cellular Automata on the Square Grid, arXiv:1503.04249, 2015.
N. J. A. Sloane, On the No. of ON Cells in Cellular Automata, Video of talk in Doron Zeilberger's Experimental Math Seminar at Rutgers University, Feb. 05 2015: Part 1, Part 2
N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168, 2015
Index entries for sequences related to cellular automata

Other CA's that use the same rule but with different cell neighborhoods: A160239, A102376, A071053, A072272, A001316, A246034, A246035, A253064, A253065, A253066.

Cf. A253070.

C:=f->subs({x=1, y=1}, f);
# Find number of ON cells in CA for generations 0 thru M defined by rule
# that cell is ON iff number of ON cells in nbd at time n-1 was odd
# where nbd is defined by a polynomial or Laurent series f(x, y).
OddCA:=proc(f, M) global C; local n, a, i, f2, p;
f2:=simplify(expand(f)) mod 2;
a:=[]; p:=1;
for n from 0 to M do a:=[op(a), C(p)]; p:=expand(p*f2) mod 2; od:
lprint([seq(a[i], i=1..nops(a))]);
end;
f:=1/x+1+x+x/y+y/x+x*y;
OddCA(f, 130);

(* f = A253070 *) f[0]=1; f[1]=6; f[2]=22; f[3]=82; f[4]=302; f[5]=1106;f[6]=4066; f[n_] := f[n] = 8 f[n-4] + 8 f[n-3] + 3 f[n-1]; Table[Times @@ (f[Length[#]]&) /@ Select[Split[IntegerDigits[n, 2]], #[[1]] == 1&], {n, 0, 63}] (* Jean-François Alcover, Jul 12 2017 *)

This is the Run Length Transform of A253070.

A253071 Number of odd terms in f^n, where f = 1/(xy)+1/x+1/y+y+x/y+x+xy.

Original entry on oeis.org

1, 7, 7, 21, 7, 49, 21, 95, 7, 49, 49, 147, 21, 147, 95, 333, 7, 49, 49, 147, 49, 343, 147, 665, 21, 147, 147, 441, 95, 665, 333, 1319, 7, 49, 49, 147, 49, 343, 147, 665, 49, 343, 343, 1029, 147, 1029, 665, 2331, 21, 147, 147, 441, 147, 1029, 441, 1995, 95, 665, 665, 1995, 333, 2331, 1319, 4837

Offset: 0

N. J. A. Sloane and Doron Zeilberger, Feb 23 2015

nonn

This is the odd-rule cellular automaton defined by OddRule 357 (see Ekhad-Sloane-Zeilberger "Odd-Rule Cellular Automata on the Square Grid" link).

			Here is the neighborhood f:
[0, X, X]
[X, 0, X]
[X, X, X]
which contains a(1) = 7 ON cells.

Alois P. Heinz, Table of n, a(n) for n = 0..8191
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, A Meta-Algorithm for Creating Fast Algorithms for Counting ON Cells in Odd-Rule Cellular Automata, arXiv:1503.01796, 2015; see also the Accompanying Maple Package.
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, Odd-Rule Cellular Automata on the Square Grid, arXiv:1503.04249, 2015.
N. J. A. Sloane, On the No. of ON Cells in Cellular Automata, Video of talk in Doron Zeilberger's Experimental Math Seminar at Rutgers University, Feb. 05 2015: Part 1, Part 2
N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168, 2015
Index entries for sequences related to cellular automata

Other CA's that use the same rule but with different cell neighborhoods: A160239, A102376, A071053, A072272, A001316, A246034, A246035, A253064, A253065, A253066, A252069.

Cf. A253072.

C:=f->subs({x=1, y=1}, f);
# Find number of ON cells in CA for generations 0 thru M defined by rule
# that cell is ON iff number of ON cells in nbd at time n-1 was odd
# where nbd is defined by a polynomial or Laurent series f(x, y).
OddCA:=proc(f, M) global C; local n, a, i, f2, p;
f2:=simplify(expand(f)) mod 2;
a:=[]; p:=1;
for n from 0 to M do a:=[op(a), C(p)]; p:=expand(p*f2) mod 2; od:
lprint([seq(a[i], i=1..nops(a))]);
end;
f:=1/(x*y)+1/x+1/y+y+x/y+x+x*y;
OddCA(f, 130);

(* f = A253072 *) f[0]=1; f[1]=7; f[2]=21; f[3]=95; f[4]=333; f[5]=1319; f[n_] := f[n] = -8 f[n-5] + 44 f[n-4] - 24 f[n-3] - 5 f[n-2] + 6 f[n-1]; Table[Times @@ (f[Length[#]]&) /@ Select[Split[IntegerDigits[n, 2]], #[[1]] == 1&], {n, 0, 63}] (* Jean-François Alcover, Jul 12 2017 *)

This is the Run Length Transform of A253072.

cp's OEIS Frontend

A253068 The subsequence A253066(2^n-1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula

A253065 Number of odd terms in f^n, where f = 1+x+x^2+x^2*y+x^2/y.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A253069 Number of odd terms in f^n, where f = 1/x+1+x+x/y+y/x+x*y.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A253071 Number of odd terms in f^n, where f = 1/(x*y)+1/x+1/y+y+x/y+x+x*y.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A253071 Number of odd terms in f^n, where f = 1/(xy)+1/x+1/y+y+x/y+x+xy.