login
Integers (2k)-1..0 followed by integers (2k)+1..0 and so on.
4

%I #4 Oct 08 2012 18:03:56

%S 1,0,3,2,1,0,5,4,3,2,1,0,7,6,5,4,3,2,1,0,9,8,7,6,5,4,3,2,1,0,11,10,9,

%T 8,7,6,5,4,3,2,1,0,13,12,11,10,9,8,7,6,5,4,3,2,1,0,15,14,13,12,11,10,

%U 9,8,7,6,5,4,3,2,1,0,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0

%N Integers (2k)-1..0 followed by integers (2k)+1..0 and so on.

%F a(n) = (2*A000194(n)) - A074294(n).

%t Flatten[Table[Range[2n-1,0,-1],{n,10}]] (* _Harvey P. Dale_, Oct 08 2012 *)

%K nonn

%O 1,3

%A _Antti Karttunen_, Aug 03 2010