|
|
A118108
|
|
Decimal representation of n-th iteration of the Rule 54 elementary cellular automaton starting with a single black cell.
|
|
6
|
|
|
1, 7, 17, 119, 273, 1911, 4369, 30583, 69905, 489335, 1118481, 7829367, 17895697, 125269879, 286331153, 2004318071, 4581298449, 32069089143, 73300775185, 513105426295, 1172812402961, 8209686820727, 18764998447377, 131354989131639, 300239975158033
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Rule 54
|
|
FORMULA
|
a(n) = 7*(4^(n+1)-1)/15 for n odd; a(n) = (4^(n+2)-1)/15 for n even.
a(n) = 17*a(n-2) - 16*a(n-4) for n>3.
G.f.: (7*x+1) / ((x-1)*(x+1)*(4*x-1)*(4*x+1)).
(End)
|
|
EXAMPLE
|
First 8 rows, representing ON cells as "1", OFF cells within the bounds of ON cells as "0", interpreted as a binary number at left, the decimal equivalent appearing at right:
1 = 1
111 = 7
1 0001 = 17
111 0111 = 119
1 0001 0001 = 273
111 0111 0111 = 1911
1 0001 0001 0001 = 4369
111 0111 0111 0111 = 30583
1 0001 0001 0001 0001 = 69905
(End)
|
|
MATHEMATICA
|
clip[lst_] := Block[{p = Flatten@ Position[lst, 1]}, Take[lst, {Min@ p, Max@ p}]]; FromDigits[#, 2] & /@ Map[clip, CellularAutomaton[54, {{1}, 0}, 27]] (* or *)
Table[If[EvenQ@ n, (4^(n + 2) - 1), 7 (4^(n + 1) - 1)]/15, {n, 0, 27}] (* Michael De Vlieger, Oct 07 2015 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|