A110338 2n odd numbers followed by 2n-1 even numbers.

1, 3, 2, 5, 7, 9, 11, 4, 6, 8, 13, 15, 17, 19, 21, 23, 10, 12, 14, 16, 18, 25, 27, 29, 31, 33, 35, 37, 39, 20, 22, 24, 26, 28, 30, 32, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 34, 36, 38, 40, 42, 44, 46, 48, 50

Offset

1,2

Links

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

Mathematica

Riffle[TakeList[2*Range[100]-1, 2*Range[9]], TakeList[ 2*Range[100], 2*Range[ 0, 9]+1]] // Flatten (* Harvey P. Dale, Mar 01 2018 *)

Prog

(PARI) lista(nn) = {curo = 1; cure = 2; for (n = 1, nn, for (i = 1, 2*n, print1(curo, ", "); curo += 2; ); for (i = 1, 2*n - 1, print1(cure, ", "); cure += 2; ); ); } \\ Michel Marcus, Sep 16 2013

Crossrefs

Sequence in context: A337405 A304881 A266635 * A371221 A171018 A350192

Adjacent sequences: A110335 A110336 A110337 * A110339 A110340 A110341

Keyword

easy,nonn

Author

Amarnath Murthy, Jul 20 2005

Status

approved