login
A386909
Iterates of g(x), starting at x = 0 until g(x) == 2 (mod 3), where g(x) = (5*x + 18)/3 if x == 0 (mod 3) and g(x) = (5*x + 22)/3 if x == 1 (mod 3).
0
0, 6, 16, 34, 64, 114, 196, 334, 564, 946, 1584, 2646, 4416, 7366, 12284
OFFSET
0,2
COMMENTS
These iterates correspond to the computation carried out by the 5-state Marxen-Buntrock Turing machine, which halts after 47176870 = BB(5) = A060843(5) steps (see Aaronson link).
MATHEMATICA
NestWhileList[(5*# + If[Mod[#, 3] == 0, 18, 22])/3 &, 0, Mod[#, 3] < 2 &]
CROSSREFS
Cf. A060843.
Sequence in context: A236773 A131820 A266677 * A083053 A083046 A192749
KEYWORD
nonn,fini,full,easy
AUTHOR
Paolo Xausa, Aug 07 2025
STATUS
approved