This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A282348 #16 Jul 09 2025 04:42:34
%S A282348 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 A282348 41,27,6,55,66,63,76,69,59,15,34,53,70,79,104,99,48,97,58,89,25,13,
%U A282348 126,87,30,115,82,91,52,143,67,95,75,123,64,37,86,44,169,88,113
%N A282348 Numbers expelled during the formation of the array A282347.
%t A282348 f[seq_] := Riffle[Take[Reverse[seq], #], Take[seq, #]] &[Floor[Length[seq]/2]];
%t A282348 rows = 200; row[1] = Table[n, {n, rows}];
%t A282348 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 A282348 TableForm[Table[Take[row[n], 20], {n, 1, 20}]] (* A282347 *)
%t A282348 Table[row[n][[n]], {n, 2 + Floor[(rows - 1)/3]}] (* A282348 *)
%Y A282348 Cf. A007063, A282347, A356376, A356026, A356377, A356378, A356379, A356380.
%K A282348 nonn,easy
%O A282348 1,2
%A A282348 _Clark Kimberling_, Feb 13 2017