|
Search: id:A094496
|
|
|
| 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. |
|
+0
3
|
|
| 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
(list; table; graph; listen)
|
|
|
OFFSET
|
0,41
|
|
|
COMMENT
|
a[0]=1 by convention.
|
|
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: A069452 A132591 A116232 this_sequence A010112 A058963 A066608
Adjacent sequences: A094493 A094494 A094495 this_sequence A094497 A094498 A094499
|
|
KEYWORD
|
easy,nonn,tabl
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 02 2004
|
|
|
Search completed in 0.002 seconds
|
