OFFSET
0,5
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..11475 (rows 0..150 of triangle, flattened).
FORMULA
EXAMPLE
Triangle T(n, k) begins:
1;
1, 1;
1, 2, 3;
1, 2, 6, 7;
1, 3, 9, 19, 23;
1, 3, 12, 28, 66, 71;
...
T(4, 0) = 1: nnnn.
T(4, 1) = 3: nnnnk, nnnkn, nnknn.
T(4, 2) = 9: nnnnkk, nnnknk, nnnkkn, nnknnk, nnknkn, nknnnk, nnkknn, nknnkn, knnnnk.
T(4, 3) = 19: nnnnkkk, knnnnkk, nnnknkk, nnnkknk, nnnkkkn, knnnknk, knnnkkn, kknnnkn, nnknnkk, nnkknnk, nnknknk, nnknkkn, nnkknkn, knnknkn, nknnknk, nknnkkn, nnkkknn, knnknnk, nknknkn.
T(4, 4) = 23: nnnkkkkn, nnnkkknk, nnnkknkk, nnkkknnk, nnknkkkn, nnkkknkn, nknnkkkn, nnknkknk, nnkknknk, nkknnknk, nnkknkkn, nkknknkn, nnnnkkkk, nnkkkknn, nnnknkkk, nkkknnnk, nnkknnkk, nnknknkk, nknnkknk, nkknknnk, nknknknk, nkknnkkn, nknkknkn.
MATHEMATICA
A391786[n_, k_] := If[n == k, (2^n + Binomial[2*n, n] + 2*Binomial[n-1, (n-2)/2]*Mod[n+1, 2])/4, (Binomial[n+k, n] + If[AllTrue[{n, k}, OddQ], 0, Binomial[Quotient[n+k, 2], Quotient[k, 2]]])/2];
Table[A391786[n, k], {n, 0, 10}, {k, 0, n}] (* Paolo Xausa, Feb 11 2026 *)
PROG
(PARI) A391786(n, k)={if(k<n, (binomial(n+k, n) + if(n%2==0 || k%2==0, binomial((n+k)\2, k\2)))/2, A045723(n))} \\ M. F. Hasler, Feb 09 2026
/* then, e.g.: concat( [[A391786(n, k)|k<-[0..n]]|n<-[0..10]] ) */
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Stephen G Taylor, Dec 20 2025
STATUS
approved
