Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #19 Nov 05 2015 14:31:32
%S 0,1,-1,2,2,-2,41,13,3,-3,30,90,24,4,-4,501,209,139,35,5,-5,322,1102,
%T 388,188,46,6,-6,5041,2253,1703,567,237,57,7,-7,3110,11090,4184,2304,
%U 746,286,68,8,-8,47501,21769,17139,6115,2905,925,335,79,9,-9
%N Rectangular array A read by upward antidiagonals in which the entry in row n and column k is defined by A(n,k) = A254067(n,k) - A257499(n,k), n,k >= 1.
%F A(n,k) = (1 + (3^n - 2^(n + 1))*(6*k - 3 + 2*(-1)^n))/6, n,k >= 1.
%e A begins:
%e . 0 -1 -2 -3 -4 -5 -6 -7 -8 -9
%e . 1 2 3 4 5 6 7 8 9 10
%e . 2 13 24 35 46 57 68 79 90 101
%e . 41 90 139 188 237 286 335 384 433 482
%e . 30 209 388 567 746 925 1104 1283 1462 1641
%e . 501 1102 1703 2304 2905 3506 4107 4708 5309 5910
%e . 322 2253 4184 6115 8046 9977 11908 13839 15770 17701
%e . 5041 11090 17139 23188 29237 35286 41335 47384 53433 59482
%e . 3110 21769 40428 59087 77746 96405 115064 133723 152382 171041
%e . 47501 104502 161503 218504 275505 332506 389507 446508 503509 560510
%t (* Array: *)
%t A254131[n_, k_] := (1 + (3^n - 2^(n + 1))*(6*k - 3 + 2*(-1)^n))/6; Grid[Table[A254131[n, k], {n, 10}, {k, 10}]]
%t (* Array antidiagonals flattened: *)
%t Flatten[Table[(1 + (3^(n - k + 1) - 2^(n - k + 2))*(6*k - 3 + 2*(-1)^(n - k + 1)))/6, {n, 10}, {k, n}]]
%K sign,tabl
%O 1,4
%A _L. Edson Jeffery_, May 03 2015