|
|
A216441
|
|
a(n) = n! mod !n.
|
|
1
|
|
|
0, 0, 6, 32, 190, 1332, 10654, 95888, 958878, 10547660, 126571918, 1645434936, 23036089102, 345541336532, 5528661384510, 93987243536672, 1691770383660094, 32143637289541788, 642872745790835758, 13500327661607550920, 297007208555366120238, 6831165796773420765476
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,3
|
|
COMMENTS
|
!n is a subfactorial number (A000166).
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MAPLE
|
with(numtheory): f:=n->sum(n!*(((-1)^k)*1/k!), k=0..n):for n from 1 to 30 do: x:=irem(n!, f(n)): printf(`%d, `, x):od:
|
|
MATHEMATICA
|
Table[Mod[n !, Subfactorial[n]], {n, 100} ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|