%I #20 Nov 02 2023 07:48:33
%S 1,2,4,3,5,7,6,8,10,12,9,11,13,15,17,14,16,18,20,22,24,19,21,23,25,27,
%T 29,31,26,28,30,32,34,36,38,40,33,35,37,39,41,43,45,47,49,42,44,46,48,
%U 50,52,54,56,58,60,51,53,55,57,59,61,63,65,67,69,71,62,64,66,68,70,72
%N (2n-1) odd numbers followed by 2n even numbers.
%H Ivan Neretin, <a href="/A074147/b074147.txt">Table of n, a(n) for n = 1..5050</a>
%F T(n,k) = A061925(n-1)+2k, 0<=k<n. - _R. J. Mathar_, Jul 17 2007, corrected Nov 02 2023
%F a(n) = A116941(n-1)+1. - _Robert G. Wilson v_, Mar 09 2017
%e As a triangular array:
%e 1,
%e 2, 4,
%e 3, 5, 7,
%e 6, 8, 10, 12,
%e 9, 11, 13, 15, 17,
%e 14, 16, 18, 20, 22, 24,
%e ...
%p A074147 := proc(n,k)
%p ceil((n-1)^2/2)+1+2*k ;
%p end proc:
%p seq(seq( A074147(n,k),k=0..n-1) ,n=1..12) ; # _R. J. Mathar_, Nov 02 2023
%t Flatten@Table[Ceiling[(n - 1)^2/2] + 2 k - 1, {n, 12}, {k, n}] (* _Ivan Neretin_, Dec 15 2016 *)
%Y Cf. A074148, A074149 (row sums), A001614.
%K nonn,easy,tabl
%O 1,2
%A _Amarnath Murthy_, Aug 28 2002
|