login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 18 15:33 EST 2018. Contains 299324 sequences. (Running on oeis4.)