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

Offset

1,2

Links

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

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. A282347

Sequence in context: A137988 A258367 A160092 * A026193 A026143 A340510

Adjacent sequences: A282345 A282346 A282347 * A282349 A282350 A282351

Keyword

nonn,easy

Author

Clark Kimberling, Feb 13 2017

Status

approved