A277736 Positions of 0's in A277735.

1, 4, 5, 6, 8, 10, 13, 14, 17, 18, 21, 22, 23, 25, 28, 29, 30, 32, 35, 36, 37, 39, 41, 44, 45, 48, 49, 50, 52, 54, 57, 58, 61, 62, 63, 65, 67, 70, 71, 74, 75, 78, 79, 80, 82, 85, 86, 87, 89, 91, 94, 95, 98, 99, 102, 103, 104, 106, 109, 110, 111, 113, 115, 118, 119, 122, 123, 126, 127, 128, 130, 133, 134

Offset: 1

Author

N. J. A. Sloane, Nov 07 2016

Keywords

• nonn

Comments

{A277736, A277737, A277738} 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. A277735, A277737, A277738.

Cf. also A003144, A003145, A003146.

Programs

Maple

with(ListTools);
T:=proc(S) Flatten(subs( {0=[0,1], 1=[2,0], 2=[0]}, S)); end;
S:=[0];
for n from 1 to 14 do S:=T(S); od:
S; # A277735
p0:=[]: p1:=[]: p2:=[]:
for i from 1 to nops(S) do
j:=S[i];
if j=0 then p0:=[op(p0),i];
elif j=1 then p1:=[op(p1),i];
else p2:=[op(p2),i]; fi: od:
p0; # A277736
p1; # A277737
p2: # A277738