OFFSET
1,5
MATHEMATICA
Table[Length[Union[Table[Floor[w!/j], {j, 1, w!}]]] -DivisorSigma[1, w! ], {w, 1, 9}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 27 2002
EXTENSIONS
Terms a(10) onward from Max Alekseyev, Feb 12 2012
STATUS
approved