|
%I #4 Feb 15 2017 03:31:06
%S 1,3,5,2,8,9,4,10,7,20,12,24,14,23,29,31,18,28,22,47,39,38,46,57,11,
%T 41,27,6,55,66,63,76,69,59,15,34,53,70,79,104,99,48,97,58,89,25,13,
%U 126,87,30,115,82,91,52,143,67,95,75,123,64,37,86,44,169,88
%N Numbers expelled during the formation of the array A282347.
%t f[seq_] := Riffle[Take[Reverse[seq], #], Take[seq, #]] &[Floor[Length[seq]/2]];
%t rows = 200; row[1] = Table[n, {n, rows}];
%t Table[row[n + 1] = Flatten[{f[Take[row[n], 2 n - 1]], Drop[row[n], 2 n - 1]}], {n, Floor[(rows - 1)/3 + 1]}];
%t TableForm[Table[Take[row[n], 20], {n, 1, 20}]] (* A282347 *)
%t Table[row[n][[n]], {n, 2 + Floor[(rows - 1)/3]}] (* A282348 *)
%Y Cf. A282347
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Feb 13 2017
|
