|
|
|
|
0, 2, 4, 8, 11, 20, 22, 32, 31, 52, 56, 80, 79, 100, 94, 128, 137, 176, 172, 208, 193, 244, 254, 320, 266, 340, 283, 400, 407, 332, 466, 512, 499, 580, 569, 680, 667, 724, 745, 848, 821, 872, 904, 976, 1021, 1060, 1082, 1280, 1093, 1312, 1330, 1360, 1379, 1472, 1479, 1584, 1543
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a[n_]:=Sum[Mod[Binomial[n, k], n+1], {k, 0, n}]; Array[a, 100, 0] (* Stefano Spezia, Jan 09 2019 *)
|
|
PROG
|
(PARI) a(n) = sum(k=0, n, binomial(n, k) % (n+1)); \\ Michel Marcus, Jan 09 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|