A282348 Numbers expelled during the formation of the array A282347.
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, 41, 27, 6, 55, 66, 63, 76, 69, 59, 15, 34, 53, 70, 79, 104, 99, 48, 97, 58, 89, 25, 13, 126, 87, 30, 115, 82, 91, 52, 143, 67, 95, 75, 123, 64, 37, 86, 44, 169, 88, 113
Offset: 1
Programs
-
Mathematica
f[seq_] := Riffle[Take[Reverse[seq], #], Take[seq, #]] &[Floor[Length[seq]/2]]; rows = 200; row[1] = Table[n, {n, rows}]; Table[row[n + 1] = Flatten[{f[Take[row[n], 2 n - 1]], Drop[row[n], 2 n - 1]}], {n, Floor[(rows - 1)/3 + 1]}]; TableForm[Table[Take[row[n], 20], {n, 1, 20}]] (* A282347 *) Table[row[n][[n]], {n, 2 + Floor[(rows - 1)/3]}] (* A282348 *)