|
Search: id:A094497
|
|
|
| A094497 |
|
a[n]=C[n,j]-Mod[C[n,j],n^3], difference of binomial coefficients and its residue mod n^3, the cube of n, 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, 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, 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, 2744, 2744, 2744, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3375, 3375, 3375, 3375, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4096, 4096, 8192, 12288, 8192, 4096, 4096
(list; table; graph; listen)
|
|
|
OFFSET
|
0,112
|
|
|
COMMENT
|
a[0]=1 by convention.
|
|
EXAMPLE
|
Out of a[1]=1 and a[2]=1, the first deviation from A007318 is at a[111] because C[14,6]=3003, Mod[3003,2744]=259, a[111]=2744.
|
|
MATHEMATICA
|
Flatten[Table[Table[Binomial[n, j]-Mod[Binomial[n, j], n^3], {j, 0, n}], {n, 1, 14}], 1]
|
|
CROSSREFS
|
Cf. A007318, A053200, A094495, A094496.
Sequence in context: A094401 A035774 A107570 this_sequence A114768 A013801 A013872
Adjacent sequences: A094494 A094495 A094496 this_sequence A094498 A094499 A094500
|
|
KEYWORD
|
easy,nonn,tabl
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 02 2004
|
|
|
Search completed in 0.002 seconds
|
