OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
Arturo Merino, Ondrej Micka, and Torsten Mütze, On a combinatorial generation problem of Knuth, arXiv:2007.07164 [math.CO], 2020. See p. 43.
MAPLE
a:= n-> binomial(2*n, n)/(n+1) mod (2*n+1):
seq(a(n), n=0..80); # Alois P. Heinz, Jul 16 2020
PROG
(PARI) C(n)=binomial(2*n, n)/(n+1);
a(n) = C(n) % (2*n+1);
(Python)
A336257_list, c = [0, 1], 1
for n in range(2, 10001):
c = c*(4*n-2)//(n+1)
A336257_list.append(c % (2*n+1)) # Chai Wah Wu, Jul 16 2020
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Michel Marcus, Jul 15 2020
STATUS
approved