OFFSET
0,3
MAPLE
P:=proc(n) local i, j, k; for j from 1 by 1 to n do k:=0; for i from 1 by 1 to n do k:=k+(i! mod j); od; print(k); od; end: P(200);
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Jul 24 2006
STATUS
approved