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,2

Links

Table of n, a(n) for n=1..66.

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 *)

Crossrefs

Cf. A007063, A282347, A356376, A356026, A356377, A356378, A356379, A356380.

Sequence in context: A137988 A258367 A160092 * A026193 A026143 A376262

Adjacent sequences: A282345 A282346 A282347 * A282349 A282350 A282351

Keyword

nonn,easy,changed

Author

Clark Kimberling, Feb 13 2017.

Status

approved