%I #5 Oct 18 2019 11:29:29
%S 1,1,3,1,4,7,1,6,16,9,1,8,36,19,31,1,12,78,41,106,33,1,14,144,85,386,
%T 109,37,1,18,222,155,1002,391,121,39,1,20,324,235,2432,1009,421,124,
%U 211,1,24,438,341,4200,2443,1079,426,1156,213,1,30,668,457,7430,4213,2575,1086,5006,1159,217,1,32,900,691,12674,7447,4421,2586,17018,5011,1171,219
%N Transpose of square array A328464.
%H Antti Karttunen, <a href="/A328463/b328463.txt">Table of n, a(n) for n = 1..1275; the first 50 antidiagonals of array</a>
%o (PARI)
%o \\ Needs also code from A328464:
%o A328463sq(n,k) = A328464sq(k,n);
%o A328463list(up_to) = { my(v = vector(up_to), i=0); for(a=1,oo, for(col=1,a, i++; if(i > up_to, return(v)); v[i] = A328463sq(col,(a-(col-1))))); (v); };
%o v328463 = A328463list(up_to);
%o A328463(n) = v328463[n];
%Y Cf. A328464.
%K nonn,tabl
%O 1,3
%A _Antti Karttunen_, Oct 16 2019
|