A094496 a[n]=C[n,j]-Mod[C[n,j],n^2], difference of binomial coefficients and its residue mod n^2 read by rows.

1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, 0, 0, 81, 81, 81, 81, 0, 0, 0, 0, 0, 0, 100, 200, 200, 200, 100, 0, 0, 0, 0, 0, 0, 121, 242, 363, 363, 242, 121, 0, 0, 0, 0, 0, 0, 144, 432, 720, 864, 720, 432

Offset

0,41

Comments

a[0]=1 by convention.

Links

Table of n, a(n) for n=0..86.

Example

First deviation from A007318 is at a[40] because C[8,4]=70 and Mod[70,64]=6.

Mathematica

Flatten[Table[Table[Binomial[n, j]-Mod[Binomial[n, j], n^2], {j, 0, n}], {n, 1, 20}], 1]

Crossrefs

Cf. A007318, A053200, A094495, A094497.

Sequence in context: A263164 A132591 A116232 * A010112 A058963 A243775

Adjacent sequences: A094493 A094494 A094495 * A094497 A094498 A094499

Keyword

easy,nonn,tabl

Author

Labos Elemer, Jun 02 2004

Status

approved