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,1

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

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 *)

Crossrefs

Cf. A052980, A277731, A277732, A277734.

Cf. also A003144, A003145, A003146.

Sequence in context: A080057 A087158 A195669 * A288933 A129259 A077597

Adjacent sequences: A277730 A277731 A277732 * A277734 A277735 A277736

Keyword

nonn

Author

N. J. A. Sloane, Nov 07 2016

Status

approved