|
%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
|
