|
%I #9 Nov 07 2016 11:33:17
%S 3,12,16,20,27,34,43,47,56,60,69,73,77,84,93,97,101,108,117,121,125,
%T 132,139,148,152,161,165,169,176,183,192,196,205,209,213,220,227,236,
%U 240,249,253,262,266,270,277,286,290,294,301,308,317,321,330,334,343,347,351,358,367,371,375,382,389,398
%N Positions of 2's in A277735.
%C {A277736, A277737, A277738} forms a three-way partition of the positive integers, similar to {A003144, A003145, A003146}.
%H N. J. A. Sloane, <a href="/A277738/b277738.txt">Table of n, a(n) for n = 1..10609</a>
%p with(ListTools);
%p T:=proc(S) Flatten(subs( {0=[0,1], 1=[2,0], 2=[0]}, S)); end;
%p S:=[0];
%p for n from 1 to 14 do S:=T(S); od:
%p S; # A277735
%p p0:=[]: p1:=[]: p2:=[]:
%p for i from 1 to nops(S) do
%p j:=S[i];
%p if j=0 then p0:=[op(p0),i];
%p elif j=1 then p1:=[op(p1),i];
%p else p2:=[op(p2),i]; fi: od:
%p p0; # A277736
%p p1; # A277737
%p p2: # A277738
%Y Cf. A277735, A277736, A277737.
%Y Cf. also A003144, A003145, A003146.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 07 2016
|
