A265717 Decimal representation of the n-th iteration of the "Rule 149" elementary cellular automaton starting with a single ON (black) cell.

1, 3, 3, 51, 19, 947, 531, 14259, 1555, 254899, 242195, 3282867, 1549843, 61236147, 39989779, 909580211, 50701843, 16943440819, 16535925267, 219187713971, 76730705427, 4093388546995, 2386876576275, 60826208376755, 5184257369619, 1105033902449587

Offset

0,2

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 14 2015: (Start)
First 8 rows, replacing leading zeros with ".", the row converted to its binary, then decimal equivalent at right :
              1                ->              1 ->     1
            . 1 1              ->             11 ->     3
          . . . 1 1            ->             11 ->     3
        . 1 1 0 0 1 1          ->         110011 ->    51
      . . . . 1 0 0 1 1        ->          10011 ->    19
    . 1 1 1 0 1 1 0 0 1 1      ->     1110110011 ->   947
  . . . 1 0 0 0 0 1 0 0 1 1    ->     1000010011 ->   531
. 1 1 0 1 1 1 1 0 1 1 0 0 1 1  -> 11011110110011 -> 14259
(End)

Mathematica

rule = 149; 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. A265246, A265715.

Sequence in context: A165636 A142469 A009809 * A292753 A268136 A225208

Adjacent sequences: A265714 A265715 A265716 * A265718 A265719 A265720

Keyword

nonn,easy

Author

Robert Price, Dec 14 2015

Status

approved