A277734 Positions of 2's in A277731.

5, 10, 16, 21, 29, 34, 40, 45, 53, 58, 63, 69, 74, 82, 87, 93, 98, 106, 111, 116, 122, 127, 133, 138, 146, 151, 157, 162, 170, 175, 180, 186, 191, 199, 204, 210, 215, 223, 228, 233, 239, 244, 250, 255, 263, 268, 274, 279, 287, 292, 298, 303, 311, 316, 321, 327, 332, 340, 345, 351, 356, 364, 369, 374

Offset: 1

Author

N. J. A. Sloane, Nov 07 2016

Keywords

• nonn

Comments

{A277732, A277733, A277734} forms a three-way partition of the positive integers, similar to {A003144, A003145, A003146}.

Links

• N. J. A. Sloane, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A052980, A277731, A277732, A277733.

Cf. also A003144, A003145, A003146.

Programs

Maple

See A277732.

Mathematica

m = 1000; (* number of terms of A277731 *)
S[1] = {0};
S[n_] := S[n] = SubstitutionSystem[{0 -> {0, 1}, 1 -> {0, 1, 2}, 2 -> {0}}, S[n - 1]];
For[n = 2, True, n++, If[PadRight[S[n], m] == PadRight[S[n - 1], m], Print["n = ", n]; Break[]]];
A277731 = Take[S[n], m];
Position[A277731, 2] // Flatten (* Jean-François Alcover, Mar 20 2023 *)