

A282348


Numbers expelled during the formation of the array A282347.


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 A075626
Adjacent sequences: A282345 A282346 A282347 * A282349 A282350 A282351


KEYWORD

nonn,easy


AUTHOR

Clark Kimberling, Feb 13 2017


STATUS

approved



