A369148 In the MIU formal system, total number (including duplicates) of strings up to n steps distant from the MI string.
1, 3, 6, 12, 28, 88, 444, 3671, 47981, 976631, 29554002, 1326494644
Offset: 0
References
- Douglas R. Hofstadter, Gödel, Escher, Bach: an Eternal Golden Braid, Basic Books, 1979, pp. 33-41.
Links
Crossrefs
Programs
-
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]]]]
Formula
a(n) >= A331536(n+1).
Comments