|
| |
|
|
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.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,112
|
|
|
COMMENTS
| 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 * A202460 A176773 A180695
Adjacent sequences: A094494 A094495 A094496 * A094498 A094499 A094500
|
|
|
KEYWORD
| easy,nonn,tabl
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 02 2004
|
| |
|
|
