A277733 Positions of 1's in A277731.

2, 4, 7, 9, 13, 15, 18, 20, 24, 26, 28, 31, 33, 37, 39, 42, 44, 48, 50, 52, 55, 57, 60, 62, 66, 68, 71, 73, 77, 79, 81, 84, 86, 90, 92, 95, 97, 101, 103, 105, 108, 110, 113, 115, 119, 121, 124, 126, 130, 132, 135, 137, 141, 143, 145, 148, 150, 154, 156, 159, 161, 165, 167, 169, 172, 174, 177, 179

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..20000

Crossrefs

Cf. A052980, A277731, A277732, A277734.

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, 1] // Flatten (* Jean-François Alcover, Mar 20 2023 *)