Rule 220

Author

Eric W. Weisstein
August 31, 2016

This notebook downloaded from http://mathworld.wolfram.com/notebooks/CellularAutomata/Rule220.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Rule220.html.

©2016 Wolfram Research, Inc. except for portions noted otherwise

Initialization

rule=220;

Binary

StringJoin@@(ToString/@IntegerDigits[rule,2,8])

Plot

V5

ElementaryCADiagram[rule]

V11

RulePlot[CellularAutomaton[220]]

RulePlot[CellularAutomaton[220],{{1},0},15,Mesh->True,PlotLegends->"Icon"]

Variants

ElementaryCAVariants[rule]

Triangle of Values

ColumnForm[t=ElementaryCATriangle[rule,5],Center]

StringJoin@@@Map[ToString,t,{2}]

Flatten[t]

Represented in Decimal

FromDigits[#,2]&/@With[{n=10},MapIndexed[Take[#1,n+#2[[1]]{-1,1}+{2,0}]&,ElementaryCellularAutomaton[rule,n]]]

IntegerDigits[#,2]&/@%

FindSequenceFunction[{1,3,7,15,31,63,127,255,511,1023,2047},n]

Closed Form

ElementaryCADiagram[rule]