|
|
A369148
|
|
In the MIU formal system, total number (including duplicates) of strings up to n steps distant from the MI string.
|
|
1
|
|
|
1, 3, 6, 12, 28, 88, 444, 3671, 47981, 976631, 29554002, 1326494644
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
See A368946 for the description of the MIU formal system.
|
|
REFERENCES
|
Douglas R. Hofstadter, Gödel, Escher, Bach: an Eternal Golden Braid, Basic Books, 1979, pp. 33-41.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
MIUStepW3[s_] := Flatten[Map[{If[StringEndsQ[#, "1"], # <> "0", Nothing], # <> #, StringReplaceList[#, {"111" -> "0", "00" -> ""}]}&, s]];
With[{rowmax = 9}, Accumulate[Map[Length, NestList[MIUStepW3, {"1"}, rowmax]]]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|