OFFSET
0,5
EXAMPLE
MATHEMATICA
a[n_]:=Max[Table[Binomial[n-2k, k], {k, 0, Floor[n/3]}]]; Array[a, 49, 0] (* Stefano Spezia, Dec 06 2021 *)
PROG
(PARI) a(n) = vecmax(vector(n\3+1, k, k--; binomial(n-2*k, k))); \\ Michel Marcus, Dec 06 2021
(Python)
from math import comb
def A349862(n): return max(comb(n-2*k, k) for k in range(n//3+1)) # Chai Wah Wu, Jan 04 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Enrique Navarrete, Dec 02 2021
STATUS
approved