login
A320440
Row sums of A225043.
0
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
OFFSET
0,2
FORMULA
a(A000040(n)) = A072205(n) for n > 0.
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
Nathan M Epstein, Jan 09 2019
STATUS
approved