login
A393685
Records in A393684.
1
71, 843, 8335, 77459, 704727, 6365659, 57360671, 516455715, 4648730983, 41840468075, 376569881007
OFFSET
1,1
COMMENTS
Conjecture: these records occur at indices (3^n - 1)/2 = A003462(n); that is, they correspond to all 1's ternary inputs on the tape.
MATHEMATICA
lim = 2^12, len = 2^32}, s = PacletSymbol["WolframInstitute/TuringMachine", "OneSidedTuringMachineFunction"][{840971, 2, 3}, {1, lim}, len, "Steps"]; Union@ FoldList[Max, s] (* Michael De Vlieger, Feb 25 2026 *)
CROSSREFS
Sequence in context: A089706 A220623 A173806 * A253683 A210699 A346023
KEYWORD
nonn,more
AUTHOR
Sean A. Irvine, Feb 24 2026
STATUS
approved