A265156 Decimal representation of the n-th iteration of the "Rule 73" elementary cellular automaton starting with a single black cell.

1, 0, 21, 0, 381, 136, 5189, 544, 94493, 43176, 1311749, 254944, 24400989, 10617384, 336720133, 59386080, 6262162781, 2688081960, 86425034501, 15602819808, 1602324730205, 689510189096, 22111597905669, 4029655427808, 410123492458845, 176987155003432, 5661487452198661, 1029729726008032, 104994856690270557, 45284638610044968

Offset

0,3

References

S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.

Links

Robert Price, Table of n, a(n) for n = 0..999

Eric Weisstein's World of Mathematics, Elementary Cellular Automaton

Index entries for sequences related to cellular automata

Index to Elementary Cellular Automata

Example

From Michael De Vlieger, Dec 04 2015: (Start)
First 12 rows, showing surrounding context at left, cells generated by the initial cell at center, and the decimal equivalent at right where leading zeros are lost:
0                           1                         ->         1
1                         0 0 0                       ->         0
0                       1 0 1 0 1                     ->        21
1                     0 0 0 0 0 0 0                   ->         0
0                   1 0 1 1 1 1 1 0 1                 ->       381
1                 0 0 0 1 0 0 0 1 0 0 0               ->       136
0               1 0 1 0 0 0 1 0 0 0 1 0 1             ->      5189
1             0 0 0 0 0 1 0 0 0 1 0 0 0 0 0           ->       544
0           1 0 1 1 1 0 0 0 1 0 0 0 1 1 1 0 1         ->     94493
1         0 0 0 1 0 1 0 1 0 0 0 1 0 1 0 1 0 0 0       ->     43176
0       1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 1     ->   1311749
1     0 0 0 0 0 1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0 0   ->    254944
0   1 0 1 1 1 0 1 0 0 0 1 0 1 0 1 0 0 0 1 0 1 1 1 0 1 ->  24400989
(End)

Mathematica

rule = 73; rows = 30; Table[FromDigits[Table[Take[CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}][[k]], {rows-k+1, rows+k-1}], {k, 1, rows}][[k]], 2], {k, 1, rows}]

Crossrefs

Cf. A245549, A262448, A265122.

Sequence in context: A324685 A224114 A110454 * A040445 A040446 A040447

Adjacent sequences: A265153 A265154 A265155 * A265157 A265158 A265159

Keyword

nonn,easy

Author

Robert Price, Dec 02 2015

Status

approved