OFFSET
1,2
COMMENTS
LINKS
Don Reble, Table of n, a(n) for n = 1..57
EXAMPLE
For length n=2, there are two words which cycle, 10 and 11: 10 -> 101 -> 1101 -> 11101 -> 011101 -> 10100 -> 001101 -> 10100, which has entered a cycle.
MAPLE
See A289670.
MATHEMATICA
Table[ne = 0;
For[i = 0, i < 2^n, i++, lst = {};
w = IntegerString[i, 2, n];
While[! MemberQ[lst, w],
AppendTo[lst, w];
If[w == "", ne++; Break[]];
If[StringTake[w, 1] == "0", w = StringDrop[w <> "00", 3],
w = StringDrop[w <> "1101", 3]]]];
2^n - ne, {n, 1, 12}] (* Robert Price, Sep 26 2019 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Jul 29 2017
STATUS
approved